-   
- 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 
-   
-