自动连接数据库是怎么回事?

Question

我在程序一开始的地方设了一个连接数据库的输入窗口，要求输入服务器IP、SQLID、SQL密码。第一次输入正确后，关闭程序。然后再打开时，如果什么都不输，直接点确定，竟然也能连接成功！这是怎么回事？难道它有记忆功能！应该怎么改？
我的代码是这样的（Command4是确定按钮）：
Private Sub Command4_Click()
 On Error GoTo 10
 con.ConnectionString = "driver={sql server};server=" & Text1 & ";uid=" & Text2 & ";pwd=" & Text3 & ";database=Ma_Lab"
 con.ConnectionTimeout = 5
 con.Open
  Me.Hide
  MsgBox "连接数据库成功！", , "消息"
  Frmlogin.Show
  Exit Sub
10 MsgBox "连接数据库失败！", , "错误"
End Sub

Answer 1

对象con是否有con.disconncet或con.close等？选在End sub这之前加上。

Answer 2

你关闭程序时，没有unload所有的窗口