Private Sub Form_Load()
  Do
     If OnlyRuhezeitKunden = True Then
        'prüfe ob Ruhezeit
        If rKunden("fChkRuhe").Value = True Then
             If DateDiff("d", rKunden("fRuheBegin").Value, Date) >= 0 And _
               DateDiff("d", rKunden("fRuheEnde").Value, Date) <= 0 Then
        Else
            cDB.rKunden.MoveNext
            '"Next Do" <<<<<<<< Hier suche ich das Gegenstück zu Exit Do 
            ' >>>>>>>>> End If
            'Do continue ...
            Form_Load
         End If
      End If
 
      If cDB.rKunden("fGender").Value = True Then
          fParent.toolMWCount.Buttons(1).Caption = Val( _
            fParent.toolMWCount.Buttons(1).Caption) + 1
      Else
          fParent.toolMWCount.Buttons(3).Caption = Val( _
            fParent.toolMWCount.Buttons(3).Caption) + 1
      End If
 
      AddKundenItem
      cDB.rKunden.MoveNext
   Loop While cDB.rKunden.EOF = False
 
End Sub