请高手指点:不知到丢了哪件控件,经常提供加载错误?

Eric666

请高手指点:我的电脑不知是什么问题,所有的Access文件中只要包含以下程序代码,特别是粗体部分,就会出错,不能正常运行,请各位高手帮忙指点一下,非常感谢!

Dim cn As Connection
Dim tt, bb, ww As Single
Dim rs1 As New ADODB.Recordset
ww = MsgBox("你想记录本张单据吗?如果不记录，单据号码将不会自动更新!", vbQuestion + vbYesNo)
If ww = 6 Then
    Set cn = CurrentProject.Connection     '设置数据库连接为当前数据库
    rs1.Open " 列印单据记录", cn, adOpenKeyset, adLockPessimistic, adCmdTable
    cn.BeginTrans

Eric666

图片如下C:\Documents and Settings\zyw\My Documents\未命名.bmp

Grant

缺少对ADO的引用,在vba视图中点击菜单栏的工具引用microsoft activex data objects xxxx的控件即可.

tmtony

如果你是Access2000或以上版本,试着新建一个MDB文件,查看引用了有否ADO2.1如果没有,则可能Access本身已经有问题了,最好重装一下Access.如果有,则按楼上Grant的方法试试

Eric666

谢谢Tony与Grant,按照你们的方法都试过,可惜问题还是存在,我怀疑是电脑问题,可能是在卸载某些程序时删除了什么控件,就是重新安装office都无法解决,以前的一些文件都不能正常打开,出现加载错误,也无法编译,但是在其他电脑上就可以打开.唉,真烦啊!