莫名其妙的怪问题?请教高手?

Question

if rst.state=adstateopen then rst.close
rst.open sql,connect,adopenkeyset,adlockreadonly
if rst.recordcount>0 then
    consult=rst.fields(0).value &""
end if

Answer 1

if rst.state=adstateopen then rst.close
rst.open sql,connect,adopenkeyset,adlockreadonly
if rst.recordcount>0 then
    consult=rst.fields(0).value &""
end if
还是不行啦!和刚才一个样,它提示说类型不匹配不能够对未打开的对象进行操作!谢谢你啦!

Answer 2

Public Function consult(rst As Recordset, sql As String) As String改为Public Function consult(rst As Adodb.Recordset, sql As String) As String试试如果仍不行
Public Function consult(rst As adodb.Recordset, sql As String) As String
第一个参数干脆不要，反正你要在这个function里重新open的public function consult(sql as string) as string
dim rst as new adodb.recordsetrst.open sql,connect,adlockreadonlyif rst.recordcount>0 then
    consult=rst.fields(0).value & ""
end if
set rst=nothing
end function