在Datalist中怎样显示"select * from 表"后的结果？

Question

我用了一个adodc，和datalist控件代码如下：
Private Sub Form_Load()
Dim str As String
str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\lipeng\三级表模型.mdb;Persist Security Info=False" & ";Jet OLEDB:Database Password= "
With Adodc1
    .ConnectionString = str
    .RecordSource = "select * from aa"
End With
Set DBList1.DataSource = Adodc1
DBList1.DataField = "a"
End Sub
但运行后，datalist里面没有内空。我还要做些什么才能显示出来写详细点(代码）

Answer 1

DataList 和 DataCombo 用法一样dim rs1 as new recordset
dim rs2 as new recordset
...
rs1.open strSQL,YourConn,？，？
rs2.open strSQL,YourConn,adOpenKeyset，？with Me.DataCombo1
set .DataSource = rs1
set .rowsource=rs2
.listfield=rs2.fields(?).name
.BoundColumn=rs2.fields(?).name
.DataField ==rs1.fields(?).name
end with

Answer 2

为什么要打代码，
既然用的是控件，鼠标点几下不救出来了吗。
按分类看一看
DataList的属性列表，就那几个，下面还有中文提示。看不懂吗？

Answer 3

直接在属性栏设置:datasource和datafield两个属性就差不多了.

Answer 4

Private Sub Form_Load()
Dim str As String
str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\lipeng\三级表模型.mdb;Persist Security Info=False" & ";Jet OLEDB:Database Password= "
With Adodc1
    .ConnectionString = str
    .RecordSource = "select * from aa"
End With
Set DBList1.DataSource = Adodc1
DBList1.DataField = "aa"
End Sub