如何把数据库的一个字段读取到ComboBox控件中,最好可以选择几行读入

[此贴子已经被作者于2007-3-26 17:17:59编辑过]

Option Explicit
Const ConnectionString = "你的联接数据放这"
Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim rs As ADODB.Recordset
Dim fl As Field
conn.Open ConnectionString
Set rs = conn.Execute("select * from DbTable")
For Each fl In rs.Fields
Combo1.AddItem fl
Next
End Sub