eaballay

Experiencia

Agregar una referencia en el proyecto a:
MS Access
Dim MSAccess as Access.Application
Private Sub cmdReport_click()
Set MSAccess = New Access.Application
MSAccess.OpenCurrentDatabase("c:\xxxx\basedatos.mdb")
' si la base de datos esta protegida con contraseña el unico metodo que conozco es:
' enviarle la contraseña de esta forma: SendKeys "contraseña{ENTER}"
MSAccess.Docmd.OpenReport "rptNombreReport", acviewNormal
MSAccess.CloseCurrentDatabase
Set MSAccess = nothing
End Sub
Espero te sirva.