Private Sub Anzahl_Ereignisse()
        Dim von_Datum = Today.AddDays(7)
 
        If Me.ListenDB.Geburtstagsliste.Rows.Count = 0 Then Return
        ' Abfrage
        Dim AbfrageG As System.Data.EnumerableRowCollection(Of _
          GeburtstagslisteRow)
        AbfrageG = From Reihe In Me.ListenDB.Geburtstagsliste
                   Where Reihe.RowState <> DataRowState.Deleted AndAlso _
                     Reihe.IsGeburtstagNull = False AndAlso _
                   Reihe.Geburtstag = von_Datum _
     Select Reihe
        Dim anzahlDatensaetze As Integer = AbfrageG.Count
        If anzahlDatensaetze <> 1 Then
            MessageBox.Show(String.Concat(anzahlDatensaetze.ToString & "" & _
              "Aktuelle Geburstage"))
 
        Else
            MessageBox.Show(String.Concat(anzahlDatensaetze.ToString & "" & _
              "Aktueller Geburstag"))
 
        End If
    End Sub