求助各位用VB+Access2000做程序的高手

Question

Private Function Rec(strSQL As String, strField As String) As String
Dim rsRec As ADODB.Recordset
Set rsRec = New ADODB.Recordset
rsRec.CursorLocation = adUseClient
rsRec.Open strSQL, cnn, adOpenDynamic, adLockOptimistic
Dim strF As String
strF = rs.Fields(strField)
rsRec.Close
Set rsRec = Nothing
Rec = strF
End Function
Rec("select * from tslx where tslxbh='" & TSLXBH & "'", "tslxmc")"select * from tslx where tslxbh='" & TSLXBH & "'"是SQL查询语句
"tslxmc"是表中的一个字段
每次调用这个函数时都会出现如下错误:
运行时错误'3265'
项目在所需的名称或序数中未被发现请教各位大虾,哪里有问题,谢谢各位

Answer 1

strF = rs.Fields(strField)'这一句应改为
strF = rsRec.Fields(strField)