consulta sql en adodc

[rodrigobarrere]

hola tengo el siguiente codigo y no me funciona podrian corregirlo por favor????
Private Sub cmd_buscar_Click()
Dim cnn As New ADODB.Connection

Dim rst As New ADODB.Recordset

Dim strProveedor As String

Dim strOrigenDatos As String

Dim strSQL As String

strProveedor = "Microsoft.Jet.OLEDB.4.0"

strOrigenDatos = "c:\agenda\contactos.mdb"

strSQL = "SELECT * FROM contactos where Nombre =" & TXT_BUSCAR.Text

cnn.Open "provider=" & strProveedor & "; Data Source=" & strOrigenDatos

rst.Open strSQL, cnn, Adodc1

'Set Adodc1.DataSource = rst

End Sub

[vbx3m]

Y el commandType? no lo especificaste como cmdtext? en el connectionstring te falto Persist Security Info=False; el recordsource del control es tu strsql y cuando vas a comparar con un control sería "SELECT * FROM contactos WHERE Nombre = '" & TXT_BUSCAR.Text & "'" .... Trata así para ver si te funciona ...