一个返回值是adodb.recordset 的问题，

Question

Public Function GetValue(ByVal sqlstr As String) As adodb.Recordset
    Dim Rs As adodb.Recordset
    Conn.GetRecordset ConnStr, sqlstr, Rs
    Set GetValue = Rs
End Function
提示user-defined type not defined
谢谢了！

Answer 1

我是没办法了啊，新公司要求我用vb写com+
我原先是用delphi的，所以只好来麻烦你们了，

Answer 2

在vb里可能不能返回adodb.Recordset
Public Function GetValue(ByVal sqlstr As String) As adodb.Recordset
    Dim Rs As new adodb.Recordset
   Rs.open sql语句, Conn,加锁方式，读写方式
    Set GetValue = Rs
End Function
提示user-defined type not defined
估计这样也不行，你那个错误是因为你没有定义adodb.Recordset，
 如果你用Dim Rs As adodb.Recordset 定义后
  你要在用该参数时必须要
set Rs＝new adodb.recordset（vb对对象必须这样，.net里只要定义就好了，^_^）
才能用
   不过你最好不要用adodb.Recordset来做返回值

Answer 3

Rs.open sql语句, Conn,加锁方式，读写方式 这句写写错了   Rs.open sql语句, Conn,打开方式，加锁方式 sorry

Answer 4

没有引用ado
工程-引用 microsoft activex data objects 2.5 library

Answer 5

引用工程-引用 microsoft activex data objects 2.5 library
Function GetValue(ByVal sqlstr As String) As adodb.Recordset
    Dim Rs As adodb.Recordset
    set rs = new ADODB.recordset
    -----------
    Set GetValue = Rs
End Function

Answer 6

引用工程-引用 microsoft activex data objects 2.x libraryFunction GetValue(ByVal sqlstr As String) As adodb.Recordset
    Dim conn as adodb.Connection    
    Dim Rs As adodb.Recordset
    Dim sql as string
    sql = "SQL语句"
    set conn = new adodb.connection
    set rs = new ADODB.recordset
    conn.open "连接字符串" '这个不用我写了吧~
    rs.open sql,conn,打开方式,加锁方式     
    Set GetValue = Rs
End Function

Answer 7

引用工程-引用 microsoft activex data objects 2.6 library
Function GetValue(ByVal sqlstr As String) As adodb.Recordset
    Dim conn as new adodb.Connection    
    Dim Rs As new adodb.Recordset
......
end function
加上new试试看

Answer 8

还有一个问题:
在VB或ASP中怎样接收这个函数返回的RecordSet对象？
我当时用的是
    Dim objRS As New ADODB.Recordset
    objRS = GetValue("参数值")结果提示:Invalid use of property