نمایش اطلاعات یک فیلد در کمبو باکس

[mohsen gh]

سلام دوستان من چطور میتونم اطلاعات یک فیلد از دیتابیس رو داخل یه کمبو باکس نمایش بدم ؟؟؟

[mohsen gh]

سلام دوستان من چطور میتونم اطلاعات یک فیلد از دیتابیس رو داخل یه کمبو باکس نمایش بدم ؟؟؟
دوستان خودم حلش کردم ممنون از همه


Private Sub FillCombo()
Dim fillcon As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\db1.mdb")
Dim asql As String = ("SELECT your fild FROM your tabel ORDER BY your fild")
Dim da As New OleDbDataAdapter(asql, fillcon)
Dim ds As New DataSet
da.Fill(ds)
combo1.ValueMember = "your fild"
combo1.DataSource = ds.Tables(0)
combo1.SelectedIndex = 0

End Sub