conn.bas

储存系统

Attribute VB_Name = "conn"
Public cn As New ADODB.Connection '连接
Public rs 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 & "\hhdq.dll;Jet OLEDB:Database Password=xhhdqpf;Persist Security Info=False;"
End Sub
'关闭数据库连接
Public Sub CloseConn()
    'rs.Close
    'Set rs = Nothing
    
End Sub