module1.bas

数据连接程序放到数据库里

Attribute VB_Name = "Module1"
'用于连接数据库的变量
Public gcnnDataLink As New ADODB.Connection
Public grstMess As New ADODB.Recordset
Public RsBlannce As New ADODB.Recordset
Public strDataLinkString As String '数据库连接字符串

Sub main()
    Set GcnnLink = Nothing
    Set GcnnLink = New ADODB.Connection
    connstr = "driver={SQL Server};server=SAMFU;uid=;pwd=;database=Test"
    With gcnnDataLink
        .ConnectionString = connstr
        .CursorLocation = adUseClient
        .Open
    End With
    'frmInData.Show
    frmMain.Show
End Sub