Do While sDatumVon <= sevDatumBis
       sSQL = "KontDatum = '" & sDatumVon & "'"
       If sevGrid1.FindFirst(sSQL, True) <> 0 Then
          With sevGrid1
             With .Recordset
                Dim KontingentAlt       As Integer
                Dim KontingentFrei      As Integer
                Dim KontingentGebucht   As Integer
 
                KontingentAlt = .Fields("KontMax")
                KontingentGebucht = .Fields("KontGebucht")
 
                If KontingentAlt >= sevAnzahl Then
                   KontingentAlt = KontingentAlt - sevAnzahl
                   KontingentFrei = KontingentAlt - KontingentGebucht
                   .Fields("KontMax") = KontingentAlt
                   .Fields("KontFrei") = KontingentFrei
                End If
             End With
             .UpdateRow
             .RowRefresh
          End With
       End If
       sDatumVon = DateAdd("d", 1, sDatumVon)
    Loop
End Sub