关于ado对象运行问题

[xiaociwei20000]

我从没用ado对象编过程，所以我有一些问题要问大家，我先说个例子吧
Private Sub Command1_Click()
Dim a As New ADODB.Connection
Dim b As ADODB.Recordset
aa = "provider=microsoft.jet.oledb.4.0;persist security info=false;data source="
bb = aa & "C:\My Documents\毕业设计\数据库\db1.mdb"
Set a = New ADODB.Connection
a.Open bb
（ Set b = New ADODB.Recordset）；；；；；；出错地方
b.CursorType = adOpenDynamic
b.LockType = adLockPessimistic
b.Open "资金库", a, , , adCmdTable
b.MoveFirst
Text1.Text = b.Fields("流动资金")
End Sub
运行程序时，出错在上方（出错地方）
程序显示：实时错误430 类不支持自动化或不支持期望的接口
请问怎样解决