El problema biene en la instruccion sql en la clausula AND
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