Option Explicit
Private bAbort As Boolean

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyF2 Then
    bAbort = True
  End If
End Sub

<font color=green>' Bevor die Aktion beginnt</font>
bAbort = False
 
<font color=green>' Hier wird das Recordset durchlaufen</font>
Do
 
  DoEvents
  If bAbort Then Exit Do
 
  rstDaten.MoveNext
Loop Until rstDaten.Eof