Visual Basic - Consulta en tabla DBF

ahh pero ke si sere mensa jajajaja puse el codigo pero no puse mi problematica, no se como se me paso, segun yo si la puse jajaja, sorry

este codigo abre una tabla de visual fox (.dbf) para ver los datos de toda la tabla

mi problema con este codigo chikos es que quisiera hacer una consulta por medio del folio (que es el campo "0") y me traiga los datos de ese folio como nombre apellido y cosas asi, podrian ayudarme?

este es mi codigo

Option Explicit
Dim cn As New rdoConnection
Dim rs As rdoResultset
Dim SQL As String
___________________________________________

Private Sub Form_Load()

cn.Connect = "SourceType=DBF;" _
& "SourceDB=D:X estDATA;" _
& "Driver={Microsoft Visual FoxPro Driver}"

cn.CursorDriver = rdUseOdbc
cn.EstablishConnection "rdDriverNoPrompt"

SQL = "select * from cel_data" ' aki es mi duda ----------------------------

Set rs = cn.OpenResultset(SQL, rdOpenKeyset, rdConcurRowVer)

rs.MoveFirst
nombre.Text = rs(7)
edad.Text = rs(8)
end sub

como le haria para hacer una consulta tipo
sql="select * from cel_data 'where folio like '" & Text1.Text & "'"""
si la pongo asi me marca un error en la linea del set rs diciendo ke
command contains unrecognizer phrase/keyword

como le haria para ke me consulte en la tabla? se los agradezco chikos, besos

Hola Ana , como te conteste antes yo me estaria actualizando a ADO.

puede que en la consulta tengas un apostrofe antes del WHERE?

sql="select * from cel_data 'where folio like '" & Text1.Text & "'"""

cambia por esto a ver ....

sql= "SELECT * FROM cel_data WHERE folio LIKE '" & Text1.Text & "'"

cualquier cosa lo vemos mejor , escribime no hay drama

saludos

muchas gracias, creo ke si era eso, no habia visto ese detalle, de nuevo muchas gracias, ya funciono, muchos besos por tu tiempo y apoyo, de nuevo gracias ke lindo