Access - ADO + Conexión Remota a .accdb en carpeta

Estimados,

Tengo un procedimiento que al ejecutar me entrega un mensaje de error: "Se ha producido error '91' en tiempo de ejecución: Variable de objeto o bloque With no establecido", luego al depurar el código, la línea con problemas es ésta:


Mi idea es obtener en la ventana Inmediato los datos Rut y nombre de ciertos registros. (los nombres de tablas los he revisado varias veces, así que no es problema de sintaxis)

Ayuda por favor!!! :(

Hola!

Aunque no manejo ADO lo primero que veo es que estás declarando los objetos ADO, pero no los estás instanciando. Y, lógicamente, debes instanciarlos.

Prueba a declararlos al tiempo que los instancias, así:

Dim conexion As New ADODB.Connection

Dim conexion_recordset As New ADODB.Recordset

De todas maneras si te vas a manejar con Access - Access yo te recomendaría que utilizaras DAO. Tu código podría quedar una cosa así:

...
Sub extraccion_remota()
Dim miSql As String
Dim rst As DAO.Recordset

miSql = "SELECT * FROM (SELECT * FROM bbdd_damnificados IN 'C:\Users\Usuario\basedamnificados.accdb') AS BDExterna"

Set rst = CurrentDb.OpenRecordset(miSql)
With rst
Do Until .EOF
Debug.Print .Fields("NRUT").Value & " " & .Fields("NMAPEPAT")
.MoveNext
Loop
End With

rst.Close
Set rst = Nothing
End Sub
...

A ver si alguno de los sistemas te funciona.

Saludos,

http://neckkito.siliconproject.com.ar/