Private Sub Command1_Click()
  Static nRun As Byte
 
  If Rs.Eof Then
    <font color=green>' Erneuter Durchlauf</font>
    nRun = nRun + 1
    If nRun > 3 Then 
      MsgBox "3. Durchlauf beendet!"
      Exit Sub
    End If
 
    Rs.MoveFirst
  Else
    Rs.MoveNext
  End If
End Sub