conn.bas

功能强大的个人工作通讯录

Attribute VB_Name = "conn"
Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public cn1 As New ADODB.Connection
Public rs1 As New ADODB.Recordset
Public Sub OpenConn()
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    cn.CursorLocation = adUseClient
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\data.cc;Jet OLEDB:Database Password=;Persist Security Info=False;"
End Sub
Public Sub CloseConn()
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub
Public Sub OpenConn1()
    Set cn1 = New ADODB.Connection
    Set rs1 = New ADODB.Recordset
    cn1.CursorLocation = adUseClient
    cn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\data.cc;Jet OLEDB:Database Password=;Persist Security Info=False;"
End Sub
Public Sub CloseConn1()
    rs1.Close
    Set rs1 = Nothing
    cn1.Close
    Set cn1 = Nothing
End Sub