Private Sub RgNr_AfterUpdate()
Dim rs As DAO.Recordset
Set rs = CurrentDb().OpenRecordset("Auslagen", dbOpenDynaset)
rs.FindFirst "[RgNr] = '" & RgNr.Text & "'"
If Not rs.NoMatch Then
    MsgBox ("gleiche Rg-Nr. gefunden")
    If rs![Vorsatz RgNr] = Vorsatz_RgNr.Value Then
        MsgBox ("gleichen Vorsatz gefunden")
        If rs![Auftragsnummer] = Auftragsnummer.Value Then
        MsgBox ("Achtung! Die eingegebene Rechnung gibt es bereits in der" & _
          "Datenbank.")
    End If
Else
MsgBox ("weiter keine Übereinstimmungen gefunden")
End If
rs.Close
Set rs = Nothing
End If
End Sub