一个自定义函数，系统提示错误，请问何原因？

yanwei82123300

在各位老师的帮助下写一个自定义函数：Public Function EWstr(ByVal XMstr As String, ByVal CFstr As String) As String
Dim YWstr As String
Dim i As Integer
Dim RSsql As New ADODB.Recordset
Set RSsql = New ADODB.Recordset
RSsql.Open "select ITEM from tblATPfromPlanningg where CO_NUMBER='" & XMstr & "' and LN='" & CFstr & "'", CurrentProject.Connection, 1, 1
If Not (RSsql.EOF) Then
   For i = 1 To RSsql.RecordCount
       YWstr = YWstr & ";" & RSsql!ITEM
       RSsql.MoveNext
    Next i
    EWstr = YWstr
Else
    EWstr = ""
End If
RSsql.Close
Set RSsql = Nothing
End Function
但是现在系统提示有错误请帮助看看怎么回事？在别人的电脑上就没问题，奇怪谢谢

leijiqiang

Dim RSsql As New ADODB.Recordset 这个用到的组件应该没有注册造成的

xuwenning

类库名：ADODB
类库文件绝对路径：\\\\\ado\msado21.tlb
是否内建：False

yanwei82123300

请问如何注册，如何设置

yanwei82123300

求各位老师帮助，非常急，系统都停止了

yanwei82123300

没办法，将系统格了

leijiqiang

Microsoft ActiveX Data Objects 2.8引用 试试

LeeTien

楼上说的对
没用引用 ADO API
在VB界面工具-》引用 里添加