帮我看一段代码谢谢了！！
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了