intWortMonat = Left(cboMonatDiagramm.Text, 2)
    intWortJahr = Right(cboMonatDiagramm.Text, 4)
    'Dieser Teil funktioniert
    If intWortMonat = Month(Date) And intWortJahr = Year(Date) Then
        modPfadangaben.DatenbankOeffnen
        SQL = "SELECT * FROM Vergleich WHERE YEAR(Datum) =  YEAR(GETDATE())" & _
         " AND MONTH(Datum) = MONTH(GETDATE()) ORDER BY Datum;"            
        Rs.Open SQL, Cn, adOpenKeyset
        Do Until Rs.EOF
            ReDim Preserve richtig(y) As Integer
            ReDim Preserve falsch(y) As Integer
            richtig(y) = Rs.Fields("Richtig")
            falsch(y) = Rs.Fields("Falsch")
                ...'weiterer Code
        Rs.MoveNext
            y = y + 1
        Loop
        'Set Rs = Nothing
        Cn.Close
              ...'weiterer Code
Else   
        modPfadangaben.DatenbankOeffnen
        SQL = "SELECT * FROM Vergleich WHERE YEAR(Datum) =  
         YEAR(" & Right(cboMonatDiagramm.Text, 4) & ")" & _
     " AND MONTH(Datum) = MONTH(" & Left(cboMonatDiagramm.Text, 2) & ") ORDER" & _
     "BY Datum;"            
        Rs.Open SQL, Cn, adOpenKeyset
        Do Until Rs.EOF    'Hier springt er nicht in die Schleife
            ReDim Preserve richtig(y) As Integer
            ReDim Preserve falsch(y) As Integer
            datumZwischen = Rs.Fields("Datum")
            richtig(y) = Rs.Fields("Richtig")
            falsch(y) = Rs.Fields("Falsch")
                    ... 'weiterer Code
        Rs.MoveNext
            y = y + 1
        Loop
        Set Rs = Nothing
        Cn.Close