vb连接access数据库的问题！

Question

Dim a As ADODB.Connection
Dim b As ADODB.Recordset
Set a = New ADODB.Connection
Set b = New ADODB.Recordset
d = Text1.Text
a.Open "liu", "", ""
b.Open "select * from corpinf where corpid like '" & d & "'", a, 1
b("corpid") = Trim(Text1.Text)
提示”对象和提供者不能执行所需的操作“，请多多指点！

Answer 1

是不是你没指出ACCESS文件的路径?
a.connectionstring="ACCESS文件的路径"

Answer 2

不是吧，我用的是odbc连接的呀！

Answer 3

象这样：   Dim CN   As New ADODB.Connection                '定义数据库的连接存放数据和代码
    Dim Rs   As New ADODB.Recordset    CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\NWIND.MDB;Persist Security Info=False"
    CN.Open    Rs.CursorLocation = adUseClient
    Rs.Open "select * from employees", CN, adOpenDynamic, adLockBatchOptimistic    Set DataGrid1.DataSource = Rs