从表中筛选一组数据填入ListBox或DataList中

Question

Private Sub Command1_Click()Dim rs1 As ADODB.Recordset
Dim cnn1 As ADODB.Connection
Dim strCnn As String
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\TestBuild(97).mdb;User Id=admin;Password=;"
Set cnn1 = New ADODB.Connection
Set rs1 = New ADODB.Recordsetcnn1.ConnectionString = strCnn
cnn1.Openrs1.Open "select Sub_Ken from Test where Sub_Chapter='" & DBCombo1.BoundText & "'",cnn1
Set DataList1.RowSource = "select Sub_Ken from Test where Sub_Chapter='" & DBCombo1.BoundText & "'"
Set DataList1.ListField = Sub_Chapterrs1.Close
cnn1.CloseEnd Sub
这是我写的，问题多多呀，请指正...
或者不用DataList换ListBox也行，如何用AddNew循环添加一个通过Select语句筛选出来的数据呢？
快没分了，50分吧，别嫌我吝啬哟^_^

Answer 1

rs.Open "select Sub_Ken from Test where Sub_Chapter='" & Text1.text & "'",cnn1
For i = 0 To rs.RecordCount - 1
List1.AddItem rs.Fields("Sub_Ken")
'List1.ItemData(i) = rs.Fields("id")
rs.MoveNext
Next

Answer 2

rs1.Open "select Sub_Ken from [Test] where Sub_Chapter='" 你的条件变量 "'",cnn1
For i = 0 To rs1.RecordCount - 1
List1.AddItem rs1.Fields("Sub_Ken")
List1.ItemData(i) = rs1.Fields("id")
rs1.MoveNext
Next
rs1.Close
cnn1.Close

Answer 3

to: online(龙卷风V2.0--再战江湖)
真高兴刚回完你的帖子就看到你的解答，每天都在施恩于人的你...
敬佩，God Bless You!

Answer 4

改写程序如下：
依然不能实现,ListBox控件中没有显示
Private Sub DBCombo1_Click(Area As Integer)Dim cnn1 As ADODB.Connection
Dim rs1 As ADODB.Recordset
Dim strCnn As StringstrCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\TestBuild(97).mdb;User Id=admin;Password=;"
Set cnn1 = New ADODB.Connection
Set rs1 = New ADODB.Recordset
cnn1.ConnectionString = strCnn
cnn1.Open
rs1.Open "select Sub_Ken from Test where Sub_Chapter='" & DBCombo1.BoundText & "'", cnn1
For i = 0 To rs1.RecordCount - 1
List1.AddItem rs1.Fields("Sub_Ken")
List1.ItemData(i) = rs1.Fields("Subject_ID")
rs1.MoveNext
Next
rs1.Close
cnn1.CloseEnd Sub

Answer 5

For i = 0 To rs1.RecordCount - 1
    List1.AddItem rs1.Fields("Sub_Ken")
    rs1.MoveNext
Next

Answer 6

rs1.Open "select Subject_ID,Sub_Ken from Test where Sub_Chapter='" & DBCombo1.BoundText & "'", cnn1
For i = 0 To rs1.RecordCount - 1
List1.AddItem rs1.Fields("Sub_Ken")
List1.ItemData(i) = rs1.Fields("Subject_ID")
rs1.MoveNext
Next可以，一步一步跟踪看一下

Answer 7

rs1.Open "select Sub_Ken from Test "& _
    "where Sub_Chapter='" & DBCombo1.BoundText & "'", _
    cnn1,adOpenKeyset, adLockOptimistic
For i = 0 To rs1.RecordCount - 1
    List1.AddItem rs1.Fields("Sub_Ken")
    rs1.MoveNext
Next