[求助]请问这样写总是错，请高手指点！

ckp

Dim db As Database
Dim tb1 As TableDef
Dim red As Recordset
Dim fel As Field
Dim sss As Recordset
Set db = DBEngine.Workspaces(0).Databases(0)
Set tb1 = db.TableDefs("zch")
Set sss = tb1.OpenRecordset("zch")   （这句出错）
End Sub[em08]

飘然

Set sss = tb1.OpenRecordset("zch", dbOpenDynaset)

Roadbeg

把 Set tb1 = db.TableDefs("zch")
Set sss = tb1.OpenRecordset("zch") （这句出错）
这两句改为:
set sss=db.openrecordset("zch")