Private Const connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
      "Source=nwind.mdb"
    Private conn As New OleDb.OleDbConnection(connString)
 
    Private da1 As OleDb.OleDbDataAdapter
    Private ds1 As New DataSet
    Private dt1 As DataTable
    Private dv1 As DataView
 
    Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
 
            Dim sql1 As String = "SELECT * FROM Orders Order By OrderID"
 
            da1 = New OleDb.OleDbDataAdapter(sql1, conn)
 
            Try
                da1.FillSchema(ds1, SchemaType.Source, "Orders")
                da1.Fill(ds1, "Orders")
            Catch ex As System.Exception
                MsgBox("DB read failed: " + ex.ToString())
                Return
            End Try
 
            dt1 = ds1.Tables("Orders")
            dv1 = dt1.DefaultView
 
            ComboBox1.DataSource = dv1
            ComboBox1.DisplayMember = "ShipName"
            ComboBox1.ValueMember = "OrderID"
 
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist