منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Dim conn As New OleDbConnection(con)
Dim ds As New DataSet
Dim sqlstr As String = "select no from class "

ComboBox2.Items.Clear() Try
conn.Open()
Dim dataadapter1 As New OleDbDataAdapter(sqlstr, conn)
dataadapter1.Fill(ds, "class")
conn.Close()
Dim i As Integer
For i = 0 To ds.Tables("class").Rows.Count - 1
ComboBox2.Items.Insert(i, ds.Tables("class").Rows(i).Item("class_no"))
Next
Catch ex As Exception
TextBox13.Text = "حاول/ي مرة أخرى"

بارك الله فيك