Excel macro y access

extraído de la ayuda de access 97
Sub FindRecord()
Dim dbs As Database, rst As Recordset
Dim strCriteria As String

' Devuelve una referencia a la base de datos activa.
Set dbs = CurrentDb
' Define un critero de búsqueda.
strCriteria = "[PaísDestinatario] = 'Reino Unido' And [FechaPedido] >#1-1-95#"
' Crea un objeto Recordset tipo dynaset basado en la tabla Pedidos.
Set rst = dbs.OpenRecordset("Pedidos", dbOpenDynaset)
' Busca el primer registro que cumpla el criterio.
rst.FindFirst strCriteria

' Comprueba si se ha encontrado un registro.
If rst.NoMatch Then
MsgBox "No se ha encontrado ningún registro."
Else
' Busca otros registros que cumplan el criterio.
Do Until rst.NoMatch
Debug.Print rst!PaísDestinatario; " "; rst!FechaPedido
rst.FindNext strCriteria
Loop
End If
rst.Close
Set dbs = Nothing
End Sub
"Daniel Barelli" wrote in message
news:

Hola, estoy desarrollando una macro para manejar un archivo de access. La
idea es que la macro cargue desde la base en access los datos a una hoja

del

excel y luego con otra macro guardar los datos de la hoja en la base
nuevamente.
El unico inconveniente que encontre es que no puedo hacer un FIND a la

base

de datos utilizando el control DAO, cuando lo intento simplemente me da un
error.
Estoy intentando utilizarlo como habitualmente se usa un controldata en
visual (ejemplo: controldata.recordset.finfirst varconsql).
Si alguno me puede dar una ayuda se lo voy a agradecer mucho.
Slds.