SELECT AM.codigo, AM.Nombre, AM1.Calibre, AM1.Color, AM1.StockActual, AM.PVP, AM.Iva, AM.Descuento, AM.Tipo FROM AM LEFT JOIN AM1 ON AM.[codigo] = AM1.[Codigo] WHERE ((([am]![codigo] & " " & [nombre]) Like "*" & [forms]![bc]![filtro] & "*") AND ((AM.Tipo)=[forms]![Gom]![Tipo].[Value])) ORDER BY AM.Nombre;
dim ssql as string
ssql = ELECT AM.codigo, AM.Nombre, AM1.Calibre, AM1.Color, AM1.StockActual, AM.PVP, AM.Iva, AM.Descuento, AM.Tipo FROM AM LEFT JOIN AM1 ON AM.[codigo] = AM1.[Codigo] WHERE ((([am]![codigo] & " " & [nombre]) Like "*" & [forms]![bc]![filtro] & "*") AND ((AM.Tipo)=[forms]![Gom]![Tipo].[Value])) ORDER BY AM.Nombre
debug.print ' Para que te aparezca en el inmediato e intenta ejecutar esa en la consola de entencias SQL de ACCESSS