Visual Basic para Aplicaciones - error en codigo vba

Option Compare Database

Option Explicit

Sub conecta()

Dim miconexion As New Connection

Dim mirecordset As New Recordset

Dim instruccion As String

'datos = Application.CurrentProject.Path

miconexion.Open "Provider =Microsoft.ACE.OLEDB.12.0; data source= C:\Users\prueba\datos\Comunidades1.accdb;"

'& datos & ";"

instruccion = "select Nombre from sitios"

mirecordset.OpenRecordset instruccion, miconexion, adOpenDynamic, adLockOptimistic

Do Until mirecordset.EOF

Debug.Print mirecordset![Nombre]

mirecordset.MoveNext

Loop

mirecordset.Close

Set mirecordset = Nothing

miconexion.Close

Set miconexion = Nothing

End Sub