Private Sub Haertepruefung_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Dim cmd As OleDbCommand
        Dim da As New OleDbDataAdapter()
        Dim dr As OleDbDataReader
        Dim i As Integer
        Dim row As DataRow
 
 
        conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
          "Source=C:\Games\Freigabe\Proj\Data\Haertepruefung.mdb;")
        cmd = New OleDbCommand("SELECT tblArtikel.[Artikelbezeichnung lt" & _
        "Katalog / Arbeitsschein:], tblArtikel.[Mat:] FROM tblArtikel ORDER BY" & _
        "tblArtikel.[Artikelbezeichnung lt Katalog / Arbeitsschein:] ASC;", _
        conn)
        da = New OleDbDataAdapter(cmd)
 
        conn.Open()
 
        dr = cmd.ExecuteReader
        'dr.Read()
 
        Dim str As String
 
        With dr
            Do While .Read()
                str = .Item("Artikelbezeichnung lt Katalog / Arbeitsschein:") & _
                  "         ---- "
                str &= .Item("Mat:") & " ---- "
                MaterialCBox.Items.Add(str)
            Loop
            .Close()
        End With
 
        conn.Close()