'---DatensatzDatum Array Tag über prüfen, wenn TagZahl = i dann hinzufügen zu 
 ' ListBox
            For t As Integer = 0 To DatensatzDatum.Length - 1
                If DatensatzDatum(t).Day <> 0 Then
                    If DatensatzDatum(t).Day = i Then
                        lb.Items.Add(New ListBoxItem(DatensatzEintrag(t), lb))
                    End If
                End If
            Next

 '---Datenbank abfragen---
    Private Sub Datenabfrage(ByVal Monat As String, ByVal jahr As String)
 
        Dim i As Integer = 0
 
        If anzahlTage = 0 Then
            anzahlTage = 28
        End If
 
        Try
            Dim Datum_Von As String = "#" & Monat & "/01/" & jahr & "#"
            Dim Datum_Bis As String = "#" & Monat & "/" & anzahlTage & "/" & _
              jahr & "#"
            '--Verbindung aufbauen---
            Anbindung()
            '--Abfrage ausführen für den betreffenden Monat---
            Dim cmd As OleDbCommand
            Dim Dr As OleDbDataReader
 
            cmd = New OleDbCommand("SELECT COUNT (EintragID) AS Anzahl FROM" & _
              "Eintrag WHERE Datum >= " & Datum_Von & " AND Datum <= " & _
              Datum_Bis & ";", Cn)
 
            Dr = cmd.ExecuteReader
            Dr.Read()
            ReDim DatensatzDatum(Dr.Item("Anzahl"))
            ReDim DatensatzEintrag(Dr.Item("Anzahl"))
            Dr.Close()
 
            cmd = New OleDbCommand("SELECT * FROM Eintrag WHERE Datum >= " & _
              Datum_Von & " AND Datum <= " & Datum_Bis & ";", Cn)
            Dr = cmd.ExecuteReader
            Do While Dr.Read
                DatensatzDatum(i) = Dr.Item("Datum")
                DatensatzEintrag(i) = Dr.Item("Eintrag")
                i += 1
            Loop
            Dr.Close()
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try
 
        b = i
 
        Cn.Close()
 
    End Sub

Always change a running system...or you will never learn!