Visual Basic - error 3001 en programa

Estoy realizando un sistema con ado y en el apartado de busquedas tengo 1 textbox para introducir los datos y una lista para seleccionar el tipo de campo para la busqueda, tengo varios campos numericos (5) y en 3 me aparece el ERROR 3001 al querer realizar la consulta, lo mas raro es que los otros 2 funcionan perfectamente al seleccionarlos.....

verifica los tipos de los campos de tu tabla y los tipos de datos que asignas, ya que esto se presenta por colocar datos alfanuméricos en donde son numéricos y viceversa.

sip los campos en la base de datos son numericos..... aki esta el codigo:

Private Sub Command1_Click()
Select Case List1.ListIndex
Case 0
rsLectores.Filter = "" & List1 & " = '" & Text1 & "'" <------ aki me envia el mensaje
Case 1
rsLectores.Filter = "" & List1 & " >= '" & dtpDesde & "' and " & List1 & " <= '" & dtpHasta & "'"
Case 2
rsLectores.Filter = "" & List1 & " = '" & Text1 & "'"
Case 3
rsLectores.Filter = "" & List1 & " = '" & Text1 & "'"
Case 4
rsLectores.Filter = "" & List1 & " = '" & Text1 & "'"
Case 5
rsLectores.Filter = "" & List1 & " LIKE '" & Text1 + "%" & "'"
Case 6
rsLectores.Filter = "" & List1 & " = '" & Text1 & "'"
Case 7
rsLectores.Filter = "" & List1 & " LIKE '" & Text1 + "%" & "'"
Case 8
rsLectores.Filter = "" & List1 & " LIKE '" & Text1 + "%" & "'"
Case 9
rsLectores.Filter = "" & List1 & " LIKE '" & Text1 + "%" & "'"
End Select

rsLectores.Filter = "" & List1 & " LIKE '" & Text1 + "%" & "
si en la consulta despues del like le pones ' busca un valor de texto. por eso el error.
Saludos