Access中VBA代码在自己的机器下运行时正常，但在别人的机器下运行出现430的异常

Access中VBA代码在自己的机器上运行时正常，但在别人的机器上运行出现430的错误
    在Access中对一个按钮写了一段很简单的VBA代码，在我自己的机器上运行得很好，可换了别人的机器就出现“运行时错误 430 类不支持自动化或不支持期望的接口”的对话框，点击“调试”，发现错误标记在“Set cn = New ADODB.Connection”这句话，是不是哪里设置有问题？
我的机器安装的操作系统是windows xp、Access2003,别人的机器也是安装的windows xp、Access2003。
请高手指教怎么解决？代码的前段部分如下：

Private Sub Command7_Click()
Dim cn As ADODB.Connection '声明一个连接
Dim rs As ADODB.Recordset  '声明一个数据集
Dim rsa As ADODB.Recordset  '声明一个数据集

Dim str As String
Dim stra As String
Dim strb As String
stra = Text2  
strb = Text5 
If stra = "" Or strb = "" Then  MsgBox "操作错误!"
Else
Set cn = New ADODB.Connection '错误标记在此处
Set cn = CurrentProject.Connection  '定义当前使用数据库的连接
Set rs = New ADODB.Recordset        '定义rs变量是一个新的数据集
str = "Select * From 借阅 Where 图书条码='" & stra & "' and 图书证号='" & strb & "'"
……
……
……
------解决方案--------------------------------------------------------
你是直接把代码拷过去运行的吗？
------解决方案--------------------------------------------------------
引用ado lib了吗？ado版本兼容了吗？