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
 
 
        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;", conn)
        da = New OleDbDataAdapter(cmd)
 
        conn.Open()
 
        dr = cmd.ExecuteReader
        dr.Read()
 
        Do Until i = 10
            MsgBox(dr.Item("Artikelbezeichnung lt Katalog / Arbeitsschein:"))
            dr.NextResult()
            i += 1
        Loop
        conn.Close()
 
    End Sub