vb.net中COMBOBOX的用法

来源：百度知道 编辑：UC知道 时间：2024/05/17 00:40:10
想要让COMBOBOX中罗列出数据库的某列，请各位高手帮忙！
求代码！

Dim ConnTemp As New ADODB.Connection
Dim RSTemp As New ADODB.Recordset
ConnTemp.open "DATA" 'DATA --- 数据源名称
RSTemp.Open "Select * from Model Order By Model", ConnTemp, adOpenStatic, adLockReadOnly
MaxNumber = RSTemp.RecordCount
For i = 1 To MaxNumber
COMBOBOX.AddItem RSTemp.Fields(0).Value
RSTemp.MoveNext
Next i
RSTemp.Close