我现在正在作一个中间件(.dll)，打算通过它获取服务器上的记录,
服务器Dll代码如下：
Public Function GetList() As Object
    On Error GoTo ErrorHandle
    Dim objRS As Object  'ADODB.Recordset
    Set objRS = CreateObject("ADODB.Recordset")
    objRS.StayInSync = False
    objRS.open "Select * from t_DataSource", CnSysDB
    Set GetList = objRS
    Set objRS = Nothing
    Exit Function
ErrorHandle:
    Set GetList = Nothing
    MsgBox Err.Description, vbExclamation
End Function

客户端调用代码：

Private  sub test()
    Dim dwj As Object  
    On Error GoTo MyError
    Set dwj = CreateObject("对象名", 服务器)
    Set rst = dwj.GetList
    List1.Clear
    Do Until rst.EOF
        List1.AddItem rst.Fields("FNumber") & vbTab & rst.Fields("FName")
        rst.MoveNext
    Loop
    rst.Close
    Set rst = Nothing
    Exit sub
MyError:
    Msgbox Err.description
end sub