já tentei vários formas mas nao consigo abrir o relatório criado no access.. a ultima forma foi está:
Dim objAccess As Access.Application
Set objAccess = New Access.Application
objAccess.OpenCurrentDatabase filepath:=("bancodedados.mdb")
objAccess.DoCmd.OpenReport reportname:=relatorio, View:=Access.acPreview, _
wherecondition:=Condicoes
objAccess.Visible = True
objAccess.DoCmd.Maximize
Set objAccess = Nothing
sempre dá o mesmo erro..
run-time error '7866':
O Microsoft Access nao pode abrir o banco de dados porque este está faltando
ou foi aberto por um outro usuário para uso exclusivo.
se alguém souber como resolver isso me responda
valeu...