修改表总是报错，谁能帮我看看？

[dongma]

microsoftjet数据库引擎找不到输入表或查询‘’
Set rs2 = db1.OpenRecordset(strrsname2, dbOpenDynaset) '创建记录集

[自由之眼]

你把前两个注释去掉

[dongma]

部分代码：
If Text2.Text <> "" Then

'显示文件内容
'strdbname2 = "d:\gl\data\展点.mdb" '数据库名
'strrsname2 = Trim(Text1.Text) '表名
Set db1 = DBEngine.OpenDatabase(strdbname) '打开数据库
Set rs2 = db1.OpenRecordset(strrsname2, dbOpenDynaset) '创建记录集
If rs2.BOF = True Then
GoTo exit11
End If
rs2.MoveLast
rs2.MoveFirst
With rs2
intrecs2 = rs2.RecordCount ' 记录数

End With
Text4.Text = "表名: " + strrsname2 + " 记录数: " + CStr(intrecs2)
'rs.Filter = strfilter
'Set rs1 = rs.OpenRecordset
'With rs1
' intrecs = rs1.RecordCount ' 记录数
'
'End With

[自由之眼]

strrsname2参数的值定义在哪里啊
怎么给注释了??
改成:
strrsname2="select * from " & Trim(Text1.Text)
试试