Visual Basic - Consulta

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"
'where folio like '" & Text1.Text & "'"""
SQL = "select * from cel_data"
Set rs = cn.OpenResultset(SQL, rdOpenKeyset, rdConcurRowVer)

rs.MoveFirst
'Text1.Text = rs(0)
Text2.Text = rs(7)
Text3.Text = rs(8)
Text4.Text = rs(9)
end sub

????????????????????????????????????

¡Felicidades!
( ¿? )

Hola Ana y la consulta cual es?
Ana si el problema es de conexion , porque no usas ADO

Provider=vfpoledb.1;Data Source=C:MyDataDirectory;Collating Sequence=general;

Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=c:myvfpdbfolder;Exclusive=No; Collate=Machine;NULL=NO;DELETED=NO;BACKGROUNDFETCH=NO;

Cualquier cosa lo vemos mejor, escribime
saludos.