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

请帮我看一段代码,谢谢了!
'定义连接字符串，   这里mdb放置在d:
Const   gstrConn   As   String   =   "Provider=Microsoft.Jet.OLEDB.4.0;Password= " " " ";User   ID=Admin;Data   Source=D:\VB程序\进出货系统\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,changshang]   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(0)
        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时只能查询一个字段???谢谢了??

------解决方案--------------------
如楼上分开后
后面
Text2.Text = rs.Fields(0)
Text3.Text = rs.Fields(0)
改成
Text2.Text = rs.Fields(0)
Text3.Text = rs.Fields(1)

另外搂住这段代码我看着怎么那么眼熟....