ado连接:
首先project->references->microsoft activex data objects 2.7 library
下面是一小段代码
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="数据库文件路径";Persist Security Info=False"
cnn.CursorLocation = adUseClient
cnn.Open
rst.Open "select * from 表", cnn, adOpenStatic, adLockPessimistic