请帮我看一段代码,谢谢了!

'定义连接字符串， 这里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时只能查询一个字段???谢谢了??