'Call Shell("C:Program FilesMicrosoft OfficeOFFICE11MSACCESS.EXE C:\_TestesTeste.mdb")
'ou assim
Dim sCaminhoDoAccess As String, sCaminhoDoBanco As String
sCaminhoDoAccess = "C:Program FilesMicrosoft OfficeOFFICE11MSACCESS.EXE"
sCaminhoDoBanco = "C:\_TestesTeste.mdb"
Call Shell(sCaminhoDoAccess & " " & sCaminhoDoBanco, vbMaximizedFocus)
é isto o que você quer?