Private Sub txtArtikelNr_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then
    KeyAscii = 0
    Dim vBookmark As Variant
    With Data1.Recordset
      vBookmark = .Bookmark
      .MoveFirst
      .Find First "ArtikelNr  like '" & txtArtikelNr.Text & "'"
      If .EOF Then
        .Bookmark = vBookmark
        MsgBox "Nicht gefunden!"
      End If
     txtArtikelNr = ""
    End With
  End If
End Sub