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.mdb;Jet OLEDB:Database Password=cjw123456;Persist Security Info=False;" End Sub
http://download.csdn.net/source/1498324
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.mdb;Jet OLEDB:Database Password=cjw123456;Persist Security Info=False;"
End Sub