怎样使数据库中某个字段的全部内容填充DBCOMBO控件？

Question

Dim dlmc As New ADODB.Recordset
Dim sql As String
DBCombo1.Visible = True
sql = "select * from dl"
dlmc.Open sql, DBCnn, adOpenStatic, adLockBatchOptimistic
Set DBCombo1.DataSource = dlmc
DBCombo1.DataField = "dlmx"我用上面的代码得到的结果只能在DBCOMBO控件中显示一条数据，并不是字段中的全部数据~
怎样才能使全部数据填充到控件中?

Answer 1

Set DBCombo1.DataSource = dlmc  //不是datasoure而是RowSource
DBCombo1.DataField = "dlmx"  //不是datafield而是 ListField 象这样
  Rs.Open "Select * from TableName", Conn, 3, 3
    Debug.Print Rs.RecordCount    With Me.DataCombo1
        Set .RowSource = Rs        .ListField = "ColumeName"    End With
请注意应该用DataCombo