'引用 Microsoft ActiveX Data Objects 2.8 Library
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
'连接Access数据库
Set cnn = New ADODB.Connection
cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
Dim cnnFile As String
cnnFile = "Data Source=" & App.Path & "/data.mdb;Persist Security Info=False;Jet OLEDB:Database Password=00000"
cnn.Open cnnFile
'查询用户表,并将用户名显示在DataCombo控件中
Set rs = New ADODB.Recordset
strSQL = "SELECT * FROM TableName"
rs.Open strSQL, cnn, adOpenStatic, adLockReadOnly
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
'连接Access数据库
Set cnn = New ADODB.Connection
cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
Dim cnnFile As String
cnnFile = "Data Source=" & App.Path & "/data.mdb;Persist Security Info=False;Jet OLEDB:Database Password=00000"
cnn.Open cnnFile
'查询用户表,并将用户名显示在DataCombo控件中
Set rs = New ADODB.Recordset
strSQL = "SELECT * FROM TableName"
rs.Open strSQL, cnn, adOpenStatic, adLockReadOnly