Recordset作为过程调用参数的问题！

Question

程序中需要做到把recordset赋值到TEXT控件里，因为有好几处所以我放到过程中，调用。
Private sub commed_click()
dim RS as adodb.recordset
set rs=new adodb.recordset
rs.open ........
call textset(rs)
end sub Sub TextSet(RSqq As ADODB.Recordset)         
    kc_name.Text = RSqq![名称] & ""
    KC_typename.Text = RSqq![产品类别] & ""
End Sub为什么提示 “无效或不合格的引用”！

Answer 1

应该是可以的，是不是你的RSqq![产品类别]或RSqq![名称]中有不是字符型的？

Answer 2

调试发现，在刚引用 textset 的时候就出现了如上错误，应该是引用的问题，可是我不知道问题出在哪 ：（

Answer 3

函数定义：Sub TextSet(byref RSqq As ADODB.Recordset)         
    kc_name.Text = RSqq![名称] & ""
    KC_typename.Text = RSqq![产品类别] & ""
End Sub
试一下

Answer 4

調用之前先判斷一下记录是否為是EOF啊，
試度看！