VB 连接数据库函数反馈的值为空，请帮忙看下

数据库：SQL 2000   已在本地启动SQL 服务
表：    SSQ_yhxx
有一条记录如下：
id    userid   pwd
1001  gupeng   gpfrom1的 command 中代码如下
Private Sub Command1_Click()
 Dim rs As ADODB.Recordset
 Dim cn As ADODB.Connection
 
 Dim csql As String
 
 csql = "select pwd from SSQ_yhxx where userid='" & Text1.Text & "'"
 
 Set rs = TranSQL(csql)
 
 If Trim(rs.Fields(1)) = Trim(Text2.Text)    <--此句有问题，rs.Fields(1)没有数据，运行到此就报错报错内容：在对应所需名称或序集中，未找到项目。
类模块中
Public Function TranSQL(ByVal sql As String) As ADODB.Recordset
 Dim rs As ADODB.Recordset
 Dim conn As ADODB.Connection
 Dim cnstring As String
 Set conn = New ADODB.Connection
 Set rs = New ADODB.Recordset  cnstring = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Password=sa;Initial Catalog=SSQ;Data Source=."
  conn.Open cnstring
  rs.Open Trim(sql), conn, adOpenKeyset, adLockOptimistic
 Set TranSQL = rs                         <-- 调试时，这里TranSQL=noting
  End Function 请高手看看，代码是否有问题，还是其他原因。整段代码就是From1 中点击command1时，调用TranSQL函数，再将值赋给From1中的rs，接着判断rs.Fields的值是否和界面输入文本框中的Text2相等