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