Private Sub Command1_Click()
Dim dbW As Object
Set dbW = GetObject("C:\...\TuMdb.MDB")
dbW.DoCmd.OpenForm "TuFormulario"
End Sub
Private Sub Command2_Click()
Dim Oaccess As Object
Set Oaccess = CreateObject("access.application.8")
Oaccess.OpenCurrentDatabase ""C:\...\TuMdb.MDB"
Oaccess.DoCmd.OpenForm "TuFormulario"
End Sub