[求助] 用vb如何打开有代码的access数据库

Sub main()
    On Error Resume Next
    Dim objAccess As Access.Application
    Set objAccess = New Access.Application
    objAccess.OpenCurrentDatabase App.Path & "\测试.mdb"       '数据库
    objAccess.Visible = True
    objAccess.DoCmd.OpenForm "窗体", acDesign, , , acFormEdit, acDialog'数据库的窗体
    (1).SetFocus
End Sub
想用vb打开access的窗体，然后关闭vb，显示access数据库的窗体，请老师帮忙修改代码。