帮小弟我看一段代码多谢了！

帮我看一段代码谢谢了！！
Const   gstrConn   As   String   =   "Provider=Microsoft.Jet.OLEDB.4.0;Password= " " " ";User   ID=Admin;Data   Source=D:\jcxt.mdb;Persist   Security   Info=False "

Private   Sub   cmd1_Click()
        Dim   strSQL                     As   String
        Dim   conn                         As   New   ADODB.Connection
        Dim   rs                             As   New   ADODB.Recordset
        strSQL   =   "   select   [riqi]   from   chuchaxt   where   [chuno]   =   ' "   &   Text1.Text   &   " ' "
        If   ConnectDB(conn,   gstrConn,   60)   <>   vbTrue   Then   Exit   Sub
       
        rs.Open   strSQL,   conn,   adOpenStatic
        If   Not   rs.EOF   Then
                Text2.Text   =   rs.Fields(0)
                Text3.Text   =   rs.Fields(2)
        End   If
        rs.Close
        Set   conn   =   Nothing
End   Sub
Public   Function   ConnectDB(ByRef   conn   As   ADODB.Connection,   ByVal   strConnString   As   String,   ConnectionTimeout   As   Long)
        On   Error   GoTo   modDB_ConnectDB_Error
        Set   conn   =   New   ADODB.Connection
        If   conn.Errors.Count   >   0   Then
                Set   conn   =   Nothing
        End   If
                If   (ConnectionTimeout   <>   -1)   Then
                conn.ConnectionTimeout   =   ConnectionTimeout
        End   If
        conn.Open   strConnString
        ConnectDB   =   vbTrue
        Exit   Function
modDB_ConnectDB_Error:
        Set   conn   =   Nothing
        ConnectDB   =   vbFalse
End   Function

为什么点cmd1时只能查询一个字段???谢谢了??

------解决方案--------------------
strSQL = " select [riqi] from chuchaxt where [chuno] = ' " & Text1.Text & " ' "

这个语句中你只查询了riqi这个字段啊

select f1,f2,f3.....from tb
SQL语句中列出你要查询的字段就OK了