Private Sub Command3_Click()
Dim msg, Style, Title, Response, MyString
On Error GoTo Err_Command29_Click
msg = "Da li želite napustiti program ?"    ' Define message.
Style = vbYesNo + vbInformation + vbDefaultButton2    ' Define buttons.
Title = "Queensland Computer"    ' Define title.
Response = MsgBox(msg, Style, Title)
If Response = vbYes Then    ' User chose Yes.
    MyString = "Yes"    ' Perform some action.
    Call Compact_MDB
     DoCmd.Quit
Else    ' User chose No.
    MyString = "No"    ' Perform some action.
    DoCmd.CancelEvent
    End If
Exit_Command29_Click:
    Exit Sub
Err_Command29_Click:
    MsgBox err.Description
    Resume Exit_Command29_Click
 End Sub