Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)
if rs.recordset = 1 then 
wahl = MsgBox("Sorry, diese Nummer " & rs!ArtNr & " ist bereits belegt mit dem" & _
  "Artikel :" & vbCr & rs!Art_Bez & vbCr & "Zum Preis von : " & rs!St_Preis & _
  "€", vbAbortRetryIgnore + vbExclamation)
 
If wahl = vbAbort Then
rs.close
set rs = nothing
form_artikel.close
set form_artikel = nothing
'DoCmd.DeleteObject (welches denn nun)
'DoCmd.Close
End If
 
End If
End if
End Sub