Algo he conseguido, esto es lo que tengo. Accedo a la base de datos externa, el recordset que abro de prueba me muestra datos de la base de datos externa.
Pero me da error en lo marcado en rojo. No se encuentra el metodo o el dato miembro
Dim mdb As DAO.Database
Dim strDBName As String
'Obtenemos el nombre de la base de datos y la abrimos
strDBName = "Z:\MisDocumentos\Drive\ACCESS\UNAI BD\BD24 TPV_Unai\TPV V8\TPV_V8_TABLAS.accdb"
Set mdb = DBEngine.Workspaces(0).OpenDatabase(strDBName, False, False, ";pwd=CLAVE")
Dim varDestino As String
varDestino = "C:\Users\qqq\Desktop\Recibe.accdb"
Dim varTipoObjeto As String
varTipoObjeto = 0
Dim varObjeto As String
varObjeto = "tbClientes"
'Abrimos los recordsets de prueba
Dim mrst As Recordset
Set mrst = mdb.OpenRecordset("SELECT tbClientes.Nombre, tbClientes.Apellidos, tbClientes.NumCliente FROM tbClientes WHERE (((tbClientes.NumCliente)='1'));", dbOpenDynaset, dbSeeChanges, dbOptimistic)
MsgBox mrst!Nombre & " " & mrst!Apellidos
mdb.TransferDatabase acExport, "Microsoft Access", varDestino, varTipoObjeto, varObjeto, varObjeto
mdb.Close
Set mdb = Nothing