'*************************************************************************************** ' Módulo : frmFox ' Fecha/Hora : 13/08/2002 16:20 ' Autor : Jairo Hernandez ' Propósito : Ejemplo de conexion a una base de datos de visual fox ' ' Para cualquier comentario escribe a jairos@gmx.net ' ' esto es via ado, y el este ejemplo solo accede a una tabla y los registros ' recuperados los muestra en una grilla '*************************************************************************************** Option Explicit Private Sub Form_Load() Dim AdoCnn As ADODB.Connection Dim AdoRst As ADODB.Recordset On Error GoTo Form_Load_Error ' Crear el objeto connection Set AdoCnn = New ADODB.Connection With AdoCnn ' para que funcione correctamente tienes que darle la ruta (solo la ruta) de tu base de datos tu DBC ' o sea cambia la ruta C:\Suragroh\Planillas\ que es lo que yo tengo en mi pc por la que tu tienes en tu pc .ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=" & _ " Driver={Microsoft FoxPro VFP Driver (*.dbf)};UID=;SourceDB= " & App.Path & "\;SourceType=DBF;Exclusive=No;BackgroundFetch" & _ " =Sí;Collate=Machine;Null=Sí;Deleted=Sí;" .Open End With ' Crear el objeto recordset Set AdoRst = New ADODB.Recordset With AdoRst .ActiveConnection = AdoCnn .CursorLocation = adUseServer ' .CursorType = adOpenDynamic .LockType = adLockOptimistic .Source = "Select * From Fincas" ' aqui pon una sentencia o tabla de tu base .Open End With Set Grilla.DataSource = AdoRst On Error GoTo 0 Exit Sub Form_Load_Error: MsgBox "Error " & Err.Number & " (" & Err.Description & ") en procedimiento Form_Load de Formulario frmFox" End Sub