' Auftrag erledigt nicht speichern
With Grid1.Recordset
If .Fields("auftrag_erteilt") = 0 Then
MsgBox "Dieser Auftrag wurde nicht vergeben !", vbOKOnly + vbCritical, "  " & _
  "Auftrag"
.Edit
.Fields("auftrag_erledigt").Value = 0
.Update
End If
End With