'---------------- 
Public Class Form7
    Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source =" & Application.StartupPath & "\database_school.mdb"
    Dim Conn As New OleDbConnection(ConStr)
    Dim DS As New DataSet
    Dim SQLstr As String

Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim s As String = "SELECT class_name From classes"

Dim a As New OleDbDataAdapter(s, Conn)

Dim DS As New DataSet

a.Fill(DS, "classes")

Dim v As New DataView(DS.Tables("classes"))

Dim c As CurrencyManager

c = CType(Me.BindingContext(v), CurrencyManager)

ComboBox2.DataBindings.Clear()

ComboBox2.DataSource = DS

ComboBox2.DisplayMember = "classes.class_name"

ComboBox2.ValueMember = "classes.class_name"

'----------------
   End Sub
End Class

