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 & "/data/XXX.mdb;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