紧急求助: DBGRID 和DBLIST 控件问题.

[nieer]

Private Sub Command1_Click()
Dim ws As Workspace
Dim db As Database
Dim rs1 As Recordset
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("h:\通讯录.mdb")
Set rs1 = db.OpenRecordset("通讯", dbOpenDynaset)
Set DBGrid1.DataSource = rs1
End Sub

Private Sub Command2_Click()
Dim ws As Workspace
Dim db As Database
Dim rs1 As Recordset
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("h:\通讯录.mdb")
Set rs1 = db.OpenRecordset("通讯", dbOpenDynaset)
Set DBlist1.DataSource = rs1
dblist1.listfield="xm"
End Sub
执行COMMAND1 时就是用DBGRID时提示错误:类不支持自动化或不支持期望的接口.执行COMMAND2时就是用DBLIST时提示:对象变量或WITH块变量未设置.我引用的是DAO 3.51.
但用数据控件绑定这两个控件使用又一切正常.
请高手指点很急谢谢.

[zhshop]

天呀。。还有人在用DAO？

[neo40]

没遇到过，但你这样定义变量试试

Dim ws As DAO.Workspace
Dim db As DAO.Database
Dim rs1 As DAO.Recordset