Visual Basic 2008 中 数据库连接模块

Attribute VB_Name = "ConnectDataBase"
'**************************************SqlServer数据库连接调用方法*************************************

        '    Call SqlDataBaseConnection("192.168.1.100", "eswsy", "sa", "dyc821188")
       
'******************************************************************************************************

'**************************************ACCESS数据库连接调用方法*************************************
           
            'Call AccessDataBaseConnection(" \\172.25.132.11\data\eswsy.mdb")
            'Call AccessDataBaseConnection(App.Path & "\eswsy.mdb")
            'Call AccessDataBaseConnection(".\eswsy.mdb")
       
'******************************************************************************************************

'定义数据库连接conn变量及记录集rs变量
'点击 "项目"-->"添加引用"-->"com选项卡"-->"microsoft  activeX data objects 2.8 library"确定
    Public Conn As New ADODB.Connection
    Public Rs As New ADODB.Recordset
    Public Sqluser As String
    Public Sqlpass As String
    Public SqlDatabase As String
    Public SqlserverIp As String
Public Sub SqlDataBaseConnection(SqlserverIp As String, SqlDatabase As String, Sqluser As String, Sqlpass As String)
    '客户端游标库提供的游标
    Conn.CursorLocation = ADODB.CursorLocationEnum.adUseClient
    Conn.Open "Provider=SQLOLEDB.1;Password=" & Sqlpass & ";Persist Security Info=True;User ID=" & Sqluser & ";Initial

Catalog=" & SqlDatabase & ";Data Source=" & SqlserverIp & ""
    '如果conn.state 返回值为0，数据库连接失败，为1连接成功
    If Conn.State = 0 Then
        MsgBox "数据库连接失败", vbOKOnly + vbInformation, "失败"
        Conn.Close
        Set Conn = Nothing
        End
    End If
End Sub

Public Sub AccessDataBaseConnection(AccessDatabase As String)
        '客户端游标库提供的游标
    Conn.CursorLocation = ADODB.CursorLocationEnum.adUseClient
    Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & AccessDatabase & ";Persist Security Info=False"
    '如果conn.state 返回值为0，数据库连接失败，为1连接成功
    If Conn.State = 0 Then
            MsgBox "数据库连接失败", vbOKOnly + vbInformation, "失败"
            Conn.Close
            Set Conn = Nothing
            End
    End If
End Sub