求助：关闭access窗体

以下代码可以在vb中打开access窗体
Sub 打开access窗体()
    Dim acc As String
    Dim mypassword As String
    Dim SSpath As String
    On Error Resume Next
    acc = "记录"
    SSpath = App.Path & "\对账记录\" & acc & ".mdb"
    Dim NEWpath
    Set NEWpath = CreateObject("access.application")
    NEWpath.OpenCurrentDatabase SSpath, False, mypassword  '在新文件中打开数据库文件
    NEWpath.UserControl = True '用户激活新打开的文件
    NEWpath.DoCmd.OpenForm "主窗体", acDesign, , , acFormEdit, acDialog '打开数据库的窗体
End Sub
如果在我不知道窗体已经打开的情况下，再次点击按钮就会出错。
请问如何在再次点击按钮的情况下，先关闭这个窗体。