模块加载问题

Question

我将ado的连接写入一个模块中。好像只要运行程序，模块自动加载。每次打开主界面，有时我不需要对User_db赋值，不进行任何操作，直接退出总是出错，提示“验证失败”，并指向“ Conn.Open Cstring”一句。有什么办法可以解决。模块内容如下：
Public Sub Set_Con(ByVal Para As String, ByVal db As Integer)
 Dim Cstring As String
 Cstring = ""
 Select Case Para
 Case "Open"
    If db = 1 Then
            Cstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & User_db & " ;Persist Security Info=False"
            Conn.CursorLocation = adUseClient
            Conn.Open Cstring    End If
    
    If db = 2 Then
            Sysm_db = App.Path + "\damsys.mdb"  '系统数据库
            Cstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Sysm_db & " ;Persist Security Info=False"
            Couu.CursorLocation = adUseClient
            Couu.Open Cstring
    End If
 
 Case "Close"
    If db = 1 Then
       If Conn.State = 1 Then Conn.Close
   '     Set Conn = Nothing
    Else
        If Couu.State = 1 Then Couu.Close
  '      Set Couu = Nothing
    End If
 End Select
End Sub

Answer 1

模块是自动加载的，但加载后你不调用也不会执行啊