Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)


Cancel = True


End Sub