Close Button With Warning Message

I use a close button to close a form. There is list box in this Form. If the list box is empty, then simly close the form. However, if there are projects in the list box, I want to give a warning. If the user say YES, then everything in the listbox will be deleted and the form will be closed. If user say NO, tehn the form will not be closed. They then can use anotehr button to save teh projects.

I wrote the follwing code. The delete portion itself works. But it seesm comfused with msgbox. Could you pelase help me correct this code? Thank you very much for your help.

lbDestination -- list box name



Private Sub Close_Click()
On Error GoTo Err_Close_Click

If IsNull(Me.lbDestination) Then
DoCmd.Close
Exit Sub
End If

If MsgBox("You have unsaved initiatives. Are you sure you want to close?", vbQuestion + vbYesNo + vbDefaultButton2, _
"Delete?") = vbYes Then

Dim rsDestination As DAO.Recordset
Set rsDestination = CurrentDb.OpenRecordset("tbInit", dbOpenDynaset)

rsDestination.MoveFirst
Do While Not rsDestination.EOF

rsDestination.Edit
rsDestination.Delete
rsDestination.MoveNext
Loop

Me.lbDestination.Requery

End If


Exit_Close_Click:
Exit Sub

Err_Close_Click:
Resume Exit_Close_Click



End Sub