' keinen SQL-Server, sondern OLDB-Connection:
Imports System.Data.OleDb
 
 
Public Class frmDatareader
    Inherits System.Windows.Forms.Form
    ' ab hier dürfen eigene Variablen deklariert werden
    ' Unser Beispiel:
    ' Datenbankanbindung mit DataReader
    ' a) Wir brauchen eine Objektvariable für die Datenbank
    '     anbindung:
    Dim verbindung As OleDbConnection
    ' b) einen Sql-Befehl als Command-Objekt
    Dim sqlbefehl As OleDbCommand
    ' c) einen DataReader zum Lesen von Datensätzen
    Dim reader As OleDbDataReader
    ' -------------------------------------------------------------------------
    ' --
    ' Eine Datenbank, die im Übungsverzeichnis im Ordner
    ' bin abgelegt wird---> also rüberkopieren
    ' -------------------------------------------------------------------------
    ' ---
 
 
 
#Region " Vom Windows Form Designer generierter Code "
' Code entfernt, da automatisch erstellt!!!!
#End Region
 
 
    Private Sub frmDatareader_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        ' jetzt werden die Objekte belegt:
        verbindung = New OleDbConnection _
        ("Provider=Microsoft.Jet.Oledb.4.0; Data Source=" _
        & Application.StartupPath & "\Test.mdb")
        ' Datenbank öffnen:
        verbindung.Open()
        'MsgBox("Datenbank offen!")
        ' nun eine SQL-Abfrage
        sqlbefehl = New OleDbCommand("Select * from artikel", verbindung)
 
        ' Datensätze zum Lesen öffnen
        reader = sqlbefehl.ExecuteReader
        'MsgBox("Datensätze zum Lesen bereit!")
 
        ' Nun geben wir das 2. Feld (Artikelname) des 1. Datensatzes aus (Chai):
        ' lies den 1. Datensatz
        reader.Read()
          ' rufe die Prozedur anzeigen zum Belegen der Text- und Labelfelder im 
          ' Formular:
        Call Anzeigen()
    End Sub
 
    Private Sub cmdEnde_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmdEnde.Click
 
 
 
        ' Datareader beenden
        reader.Close()
        ' Datenbank schließen
        verbindung.Close()
        ' Formular schließen
        Me.Close()
    End Sub
 
 
    Sub Anzeigen()
        ' Textfelder und Labelfelder belegen
        ' Index 0 = Artikel-Nr, 1 = Artikelname, 5 = Einzelpreis
       ' GetName gibt den Feldnamen aus, GetValue den Inhalt
        Me.lblNummer.Text = reader.GetName(0)
        Me.txtNummer.Text = reader.GetValue(0)
 
        Me.lblName.Text = reader.GetName(1)
        Me.txtName.Text = reader.GetValue(1)
 
        Me.lblPreis.Text = reader.GetName(5)
        Me.txtPreis.Text = Format(reader.GetValue(5), "currency")
    End Sub
 
    Private Sub cmdNächster_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmdNächster.Click
 
        ' nächsten Datensatz lesen
        reader.Read()
        '  Felder belegen
        Call Anzeigen()
    End Sub
End Class