引用:Microsoft Access 10.0 Object Library Private Sub Command1_Click() Set MSAccess = New Access.Application MSAccess.OpenCurrentDatabase ("D:\TEST.mdb") MSAccess.DoCmd.OpenForm "Form1", acPreview MSAccess.CloseCurrentDatabase Set MSAccess = NothingEnd Sub
Private Sub Command1_Click()
Set MSAccess = New Access.Application MSAccess.OpenCurrentDatabase ("D:\TEST.mdb") MSAccess.DoCmd.OpenForm "Form1", acPreview MSAccess.CloseCurrentDatabase Set MSAccess = NothingEnd Sub