DoCmd.OpenForm "frm_msgboxBitteWarten", acNormal, "", "", acReadOnly, acNormal

DoCmd.RepaintObject acForm, "frm_msgboxBitteWarten"

'Hier kommt die Aktion 

DoCmd.Close acForm, "frm_msgboxBitteWarten"