haz una prueba con esto
cambia esto...
Cita: If Not(IsEmpty(distribuidor)) Then
strQuery = strQuery & " AND distribuidor = '" & distribuidor &"'"
End If
por esto
Cita: If Not(IsEmpty(distribuidor)) Then
strQuery = strQuery & " AND distribuidor like '" & distribuidor &"'"
End If
solo como pregunta... el campo distribuidor..... lo llenas con un textbox, libremente o ya traes los datos desde la base de datos????
debes recordar que los campos, si son text van entrecomillados (campotext=
'variable
' ), y numericos (campoNumerico = 123 ) sin ningun tipo de comilla simple
