Не работает кнопка "нет"!!!SOS!!!

[Нюся]

Имеется вот такой код(офис 2007, формат сохранения под 2002-2003, версия VB 6.5):

Option Compare Database

Private Sub Form_Open(Cancel As Integer)
Dim Response As Integer
Response = MsgBox("Открыть форму?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Открытие формы")
If Response > vbYes Then
Exit Sub
End If
End Sub

Private Sub Form_Close()
Dim msg, title, style
Dim Response As Integer
msg = "Закрыть форму?" ' Define message.
style = vbQuestion + vbYesNo + vbDefaultButton2
title = "Закрытие формы" ' Define title.
Response = MsgBox(msg, style, title) ' Display message.
If Response > vbYes Then
DoCmd.OpenForm "Заказы с функцией MsgBox()"
Exit Sub
End If
End Sub

Помогите найти ошибку? Проблема в не срабатывании кнопки "нет". Не знаю, как сделать так, чтобы она заработала!... Это нужно выполнить при открытии и закрытии формы. Перепробовала разные варианты с условием в операторе if. Надеялась, что сработает DoCmd.OpenForm-была последняя надежда, но и она провалилась...((((
VB постоянно при этом выводит окно для написания макроса, хотя это можно сделать и без него... помогите, плиз!)))))

[R Dmitry]

Здравствуйте , попробуйте так

Private Sub Form_Open(Cancel As Integer)
Select Case MsgBox("Открыть форму", 4, "Открытие формы")
Case 6
'действия при открытии "ДА"
Case 7
DoCmd.CancelEvent
DoCmd.Close
End Select
End Sub

[Teslenko_EA]

Здравствуйте Нюся.
R Dmitry предложил код требующий подтверждения Открытия формы, предлагаю его несколько изменить и добавить код подтверждения Закрытия формы, точнее её выгрузки:

Private Sub Form_Open(Cancel As Integer)
    If MsgBox("Открыть форму", 4, "Открытие формы") = vbNo Then Cancel = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
Const msg$ = "Закрыть форму?", title$ = "Закрытие формы"
    ' vbQuestion + vbYesNo + vbDefaultButton2 = 292
    If MsgBox(msg, 292, title) = vbNo Then Cancel = True
End Sub

для удобочитаемости выкладываемый код обязательно заключайте в тэги [соde]...[/соde], для этого существует кнопка #, на панели инструментов.
Евгений.