Dim conn As MySqlConnection
    Dim da_Adapter As MySqlDataAdapter
    Dim da_Reader As MySqlDataReader
 
    Dim ds_Zeitungskunden As DataSet                        ' DataSet
    Dim dt_Zeitungskunden As DataTable                      ' DataTable ( 
    ' Datentabelle)
    Dim dv_Zeitungskunden As DataView
 
    Sub BrieftermineFürHeuteAusgebenZK()
 
        conn = New MySqlConnection(("server=" & server & ";user=" & user & _
          ";password=" & password & ";database=" & database).ToString)
 
        Try
 
            Try
                da_Adapter = New MySqlDataAdapter("", conn)
 
                SQL_Schreiben.SchreibeTempZKDaten_Datum()
 
                ' @@@@@ Ausführen der Select-Anweisung @@@@@
                da_Adapter.SelectCommand.CommandText = ("....")
 
                da_Adapter.SelectCommand.CommandType = CommandType.Text
 
                'Kontrolle des SQL-Strings
                'MessageBox.Show(Cmd.CommandText)
 
                ' *** DataSet und DataTable-Instanz bilden
                ds_Zeitungskunden = New DataSet()               ' 
                ' DataSet-Instanz bilden
                dt_Zeitungskunden = New DataTable()             ' 
                ' DataTable-Instanz bilden
                ds_Zeitungskunden.Tables.Add(dt_Zeitungskunden)
 
                ' *** Primärschlüssel-Informationen beim Fill mit übernehmen
                da_Adapter.MissingSchemaAction = MissingSchemaAction.AddWithKey
                da_Adapter.Fill(dt_Zeitungskunden)                              _
                  ' DataTable füllen
 
                ' *** DataView-Instanz für DataTable bilden
                dv_Zeitungskunden = New DataView(dt_Zeitungskunden)
                'dv.RowFilter = "anzahlanschreibungen = 1"
                dv_Zeitungskunden.Sort = "Kundennummer ASC"
 
                Dim rowcount = dt_Zeitungskunden.Rows.Count
                If rowcount = 0 Then
                    MessageBox.Show("Keine Datensätze gefunden")
                ElseIf rowcount = 1 Then
                    Kundendaten_Ausgeben.Show()
                    ' @@@@@ Fensterüberschrift wird geändert @@@@@
                    Kundendaten_Ausgeben.Text = ("Kundenauswahl: " & rowcount & _
                      " Datensatz gefunden")
                    ' @@@@@ Gefundene Datensätze werden in das DataGrid im 
                    ' Fenster "Brieftermine für Heute ausgeben" geschrieben 
                    ' @@@@@
                    Kundendaten_Ausgeben.CreateZKControls()
                    Kundendaten_Ausgeben.dgv_ZK.DataSource = dv_Zeitungskunden
                    Kundendaten_Ausgeben.dgv_ZK.Refresh()
                    Kundendaten_Ausgeben.dgv_ZK.Show()
 
                Else
                    Kundendaten_Ausgeben.Show()
                    ' @@@@@ Fensterüberschrift wird geändert @@@@@
                    Kundendaten_Ausgeben.Text = ("Kundenauswahl: " & rowcount & _
                      " Datensätze gefunden")
                    ' @@@@@ Gefundene Datensätze werden in das DataGrid im 
                    ' Fenster "Brieftermine für Heute ausgeben" geschrieben 
                    ' @@@@@
                    Kundendaten_Ausgeben.CreateZKControls()
                    Kundendaten_Ausgeben.dgv_ZK.DataSource = dv_Zeitungskunden
                    Kundendaten_Ausgeben.dgv_ZK.Refresh()
                    Kundendaten_Ausgeben.dgv_ZK.Show()
                End If
 
                ' @@@@@ Ausgabe falls Fehler beim Lesen aus der Datenbank 
                ' auftreten @@@@@
            Catch dbreaderror As MySqlException
                MessageBox.Show("Fehler beim Lesen aus der Datenbank: " & _
                  dbreaderror.Message)
            End Try
            ' @@@@@  Ausgabe falls Fehler beim Verbinden mit der Datenbank 
            ' auftreten @@@@@
        Catch dbconnerror As MySqlException
            MessageBox.Show("Fehler beim Verbinden mit der Datenbank: " & _
              dbconnerror.Message)
        Finally
            ' @@@@@ Verbindung zur Datenbank trennen @@@@@
            If conn.State <> ConnectionState.Closed Then conn.Close()
        End Try
 
    End Sub