Access - utilizando los informes de access desde visual bas

hola estoy tratando de ejecutar un informe de access, pero no me funciona al ejecutarlo saca el error

(Access no puede abrir la base de datos porque falta o esta abierta en modo exclusivo por otro usuario).

tengo el siguiente codigo:

Dim objAccess As Object

Set objAccess = CreateObject("Access.Application.9")
objAccess.OpenCurrentDatabase App.Path & "\db2.mdb"
'Aplication.DoCmd.OpenReport
objAccess.DoCmd.OpenReport "informe1", acViewPreview
objAccess.Visible = True
MsgBox "haga clic en aceptar para cerrar access"
objAccess.CloseCurrentDatabase
Set objAccess = Nothing

agradezco a quien me ayude a resolver este problema, mi correo es

[email protected]