VB在程序运行时，读取数据库内的值到组合框的下拉列表，求代码

Sub Li()
Dim i As Integer
Combo1.ListCount = Data1.Recordset.RecordCount
For i = 1 To Combo1.ListCount
Combo1.List(i) = Data1.Recordset.Fields("字段")
Next i
End Sub

Private Sub Form_Load()

If rec.State = adStateOpen Then rec.Close '如果数据库打开则关闭
SQL = "select * from jbxx" '数据库表jbxx
rec.Open SQL, con, adOpenStatic, adLockOptimistic
Do While Not rec.EOF

C1.AddItem rec(1)
c1是comdbox1
rec.MoveNext
Loop

End Sub