怪异 vb 中使用CommonDialog1 出现应用程序无法结束的问题

[给我力量]

Private Sub Command1_Click()
Me.CommonDialog1.InitDir = App.Path
 Me.CommonDialog1.ShowOpen

 Text1.text = Me.CommonDialog1.FileName
End Sub

Private Sub Command2_Click()
 Me.CommonDialog1.FileName = App.Path
 
 If Text1.text = "" Then
    MsgBox "请输入文件名", vbOKOnly + vbInformation
    Exit Sub
 End If
     Call openconn
      
      conn.Execute ("backup database " & db & " to disk='" & Text1.text & "'")
      rs.Open "select top 1 * from buser", conn, 0, 2
        
     Call CloseConn
     
     MsgBox "数据库备份成功", vbOKOnly + vbInformation, "备份完成"
    
     
     
End Sub

Private Sub Command3_Click()
  
 
  Unload Me
End Sub

每次当我打开这个窗口的时候，应用程序退出以后，在任务管理器里面总还是有进程，无法关闭，但是
如果不打开这个程序的时候是正常的，我该怎么解决，
我是新人，希望大家多多照顾，谢谢各位

[给我力量]

顶起来