请问在VB中ComboBox如何绑定数据库，绑定后是显示字段的全部记录，而不是第一个记录

Private Sub Form_Load()
Dim con As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim sql As String
Dim conn As String

con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=database.mdb;Persist Security Info=False"
sql = "select user from users"
rst.Open sql, con, adOpenKeyset, adLockOptimistic

Combo1.Clear
Do While Not rst.EOF
Combo1.AddItem (Trim(rst(0)))
rst.MoveNext
Loop

rst.Close
con.Close

End Sub

我也曾经遇到过这个问题，但是找了好久也没有答案，最后是换了一种思路来解决的：将数据库用户select出来后用additem添加进ComboBox。