RE:FindFirst SIN CONTROL DAT
Utiliza ADO
En un BAS
Public Sub conectar()
sBase = App.Path & "\Clientes.mdb"
Set cn = New Connection
cn.CursorLocation = adUseClient
cn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source= " & sBase
End Sub
En un FORM
Dim rsPasos As ADODB.Recordset
'-----------------------------------------------------------
' CARGAR EL FORMULARIO
'-----------------------------------------------------------
Private Sub Form_Load()
conectar
'---------------------------------------
'Enlaza la tabla
Set rsPasos = New Recordset
rsPasos.Open "select * from Pasos Order by nombre ", cn, adOpenDynamic, adLockOptimistic