VB编程中怎样实现数据库连接只在安装系统中注册一次，请指教!

之前写了一段DBconnection代码如下,可是每次系统关闭后再开又要重新注册连接数据。
Option ExplicitGlobal g_DBCon As New ADODB.Connection
Global g_DBRct As New ADODB.Recordset'带参数传递数据库连接操作Public Function GetSQLServerConnection(ByVal strComputer As String, ByVal strDb As String, ByVal _
strUserID As String, ByVal strPassword As String) As ADODB.Connection
'Purpose : 建立和指定SQL Server服务器数据库之间的连接
    On Error GoTo ErrHandle
    Dim strTemp As String
    'Dim Params As String
    'Dim connTemp As ADODB.Connection
    
        
    Set GetSQLServerConnection = Nothing '首先断开系统之前的数据库连接
    strTemp = "Driver={SQL Server};" & "server=" & strComputer & _
    ";uid=" & strUserID & ";pwd=" & strPassword & ";database=" & strDb    'Set g_DBCon = New ADODB.Connection
    g_DBCon.CommandTimeout = 15
    'connTemp.CursorLocation = adUseClient
    
    g_DBCon.Open strTemp
    Set GetSQLServerConnection = g_DBCon
    
ErrHandle:
    If Err.Number <> 0 Then
        Set GetSQLServerConnection = Nothing
        'ShowError Err.Number
    End IfEnd Function'关闭数据库连接
Public Function DisConnect() As Boolean
On Error Resume Next
If g_DBCon.State = adStateOpen Then
g_DBCon.Close
End If
DisConnect = TrueEnd Function