Private Sub cmdFreigabe_EK_Click()
  If MsgBox("Soll der Status (EK) für die ausgewählte Bestellung (" & _
    Me.GridStammdaten.text(nRow, 17) & ") tatsächlich gesetzt werden?", vbYesNo _
    + vbQuestion, "A C H T U N G") = vbYes Then
  DoCmd.SetWarnings False
  DoCmd.OpenQuery "qrySetStatusBestellung_2"
  DoCmd.SetWarnings True
  Me.GridStammdaten.Refresh
  End If               
End Sub

I'm not a role-model for your life!