[求助]vb编程求助-ADO绑定数据

<P>是一个ADO绑定数据的问题</P>
<P>界面上只有一个combox控件，我希望联结access数据库并在里面显示某个字段的所有记录</P>
<P>Dim conn As New ADODB.Connection  
Dim rs As New ADODB.Recordset        
Dim connStr As String                         /定义连接字符串
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=../*.mdb"
conn.Open connStr</P>
<P>rs.CursorLocation = adUseClient
rs.Open "SELECT * FROM [字段]", conn, adOpenKeyset, adLockPessimistic
Set Text1.DataSource = rs.DataSource</P>
<P>'以下在combox2里显示所有记录</P>
<P>Dim x As Integer
If rs.RecordCount > 0 Then
For x = 1 To rs.RecordCount
    Combo2.AddItem rs.Fields(x)
Next
End If</P>

<P>但是我到这里程序运行可以，什么也显示不出来....</P>
<P>哪位高人帮我检查检查，指点一二，多谢多谢</P>

<P>rs.Open "SELECT * FROM 你查询的表名", conn, adOpenKeyset, adLockPessimistic  看看能行吗</P><P>另外你可以测试下你的连接成功了吗
</P>

<P>问题解决了，前面字段是我打字打错了，呵呵，真不好意思...</P><P>后面的显示那里出问题了</P><P>修改后是：</P><P>    Dim i As String
    Dim t As Integer
        For t = 0 To Val(rs.RecordCount) - 1
        i = Trim(rs.Fields("字段名").Value)
        rs.MoveNext
        Combo1.AddItem i
    Next t
    rs.Close</P>

<img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em03.gif" />