VB,里的LIXTBOX 如何,引用数据库里的信息

Private Sub Form_Load()

userlist.Clear
Adodc1.RecordSource = "select * from 数据"
Adodc1.Refresh
Do While Not Adodc1.Recordset.EOF
userlist.AddItem Adodc1.Recordset.Fields("用户")
Adodc1.Recordset.MoveNext
Loop

End sub