在工程中引用dao3.6.dll
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Form_Load()
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source='" + App.Path + "\data.mdb" + "'"'打开数据库
rs.Open "select * from table", conn, adOpenKeyset, adLockPessimistic'设置数据源