Visual Basic - Ayuda con esta Condulta !!!

Q tala a todos !

Tengo una tabla y quiero hacer una consulta pero no me hace nada quiero hacerla sobre el campo "servicios" almacenados en la List1. Si porfavor alguien me pudiera ayudar de antemano gracias. Dejo el código.

Set db = OpenDatabase(App.Path + "\BDproyecto.mdb")
'Set rs = db.OpenRecordset.Fields

If List1.Text = i Then

SQL = ("Select servicios,a,analizadores FROM [tabla inf] Where servicios = '*" + List1.Text + "*'")
Set rs = db.OpenRecordset(SQL)
db.Execute (SQL)

'Añadir el resultado al Text
rs.MoveFirst

If (rs.BOF And rs.EOF) Then
Text1.Text = rs!a

End If

Err = 0
rs.MoveFirst
If Err Then
Err = 0
'no hay datos, avisar
MsgBox "No hay datos que coincidan con la búsqueda especificada," & vbCrLf & "(o no hay registros)", 64, "Listados"
Exit Sub
End If
End If

pero te sale algun error?

Q tal 1

No me sale ningun error, solo no me muestra los datos.

quiza no haya datros con esa condicion prueba:

SQL = "Select servicios,a,analizadores FROM [tabla inf] Where servicios = '" & List1.Text & "'"

No se porque pones los asteriscos, quitalos.

Lo hice y aun asi sigue sin mostrar nada y la verdad no entiendo porque....!!!!

¿Esta mal el código?

el codigo no esta mal, lo que pasa es que quizá no tengas registros que cumplan con ese tipo filtro, revisa tu tabla.

prueba lo sgte

SQL = "Select servicios,a,analizadores FROM [tabla inf] Where servicios like' " "%" & List1.Text & "%" & "'"

esto asumiendo que estas buscando coincidir un campo de texto (list1.text)

Q tal !

Pues ya revise mi tabla, inserte nuevo codigo que me paso Carlos y nada

puede ser porque mi tabla tien espacio y aun colocando [ ] no me la reconosca

no creo que sea por eso, pero pruebalo si gustas, algo te debe faltar por ahi, debes chequear tu codigo.