COMBO控件STYLE为2，从数据库取出数据后怎么放入COMBO里

COMBO控件STYLE为2，从数据库取出数据后如何放入COMBO里
限制操作者输入数据，只能选择从动态表里取出的数据，STYLE为2时，取出的数据不能写入COMBO控件，报“TEXT属性为只读”，STYLE为1时，那又能输入数据了，这个怎么做

------解决方案--------------------
首先不要在运行的时候改变Style，这个在运行时是无法改变的
其次，已经说了，改变的text必需在选项里要有，比如你要让text= 'ccc '必需要让items里有这个选项才行，所以在之前要Combo2.items.add "ccc "
------解决方案--------------------
style=2

Dim i As Integer
Private Sub Command1_Click()
If i > = Combo1.ListCount Then i = 0
Combo1.Text = Combo1.List(i)
i = i + 1
End Sub

Private Sub Form_Load()
Combo1.AddItem "asdf1 "
Combo1.AddItem "asdf2 "
Combo1.AddItem "asdf3 "
Combo1.AddItem "asdf4 "
Combo1.AddItem "asdf5 "
Combo1.AddItem "asdf6 "

End Sub