Dim Datum As Date
 
        conn.Open()
        dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)     ' 
        ' DataReader wird erzeugt
        Do While (dr.Read())
            lvItem = New ListViewItem(dr.Item("ReID").ToString)
            Datum = New Date(dr.Item("RechnungsDatum").ToString.Substring(0, _
              4), dr.Item("RechnungsDatum").ToString.Substring(5, 2), dr.Item( _
              "RechnungsDatum").ToString.Substring(8, 2))
            lvItem.SubItems.Add(Datum.ToString("d"))
            lvItem.SubItems.Add(dr.Item("RechnungsBetrag").ToString)
            Call ListViewRechnung.Items.Add(lvItem)    ' Items zum ListView 
            ' hinzufügen
        Loop