Jwindon, you mean something like this?
Private Sub Command22_Click()
Dim Msg, Style, Title, Response
Msg = "This is my message"
Style = vbYesNo + vbCritical + vbDefaultButton2
Title = "This is my title"
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
docmd.OpenQuery "Query1"...