Por ejemplo el ContentSQL supuestamente empieza con WHERE y no podria ser WHERE AND en caso uno de los text no este vacio y se genera un error.
No se como explicarlo mejor?, espero que al ver el codigo se den cuentadel problema, como lo soluciono?
Código:
Dim ContentSQL As String '..... '....... If Not Text1.Text = "" Then 'Aplicamos filtro ContentSQL = ContentSQL & " AND codcat='" & Text1 & "'" End If If Not Text2.Text = "" Then 'Aplicamos filtro ContentSQL = ContentSQL & " AND codmarca='" & Text2 & "'" End If rsProd.Filter = ContentSQL