Ciao ho un programma che una volta terminato riceve il comando Unload Me, ma mi si chiude solamente il form e non l' intero programma.

Inoltre nel Unload e Query Unload di questo form ho messo:

codice:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If (AS400Rs.State = adStateOpen) Then
        AS400Rs.Close
    End If
    If (AS400Cn.State = adStateOpen) Then
        AS400Cn.Close
    End If
    Unload Me
End Sub

Private Sub Form_Unload(Cancel As Integer)
    If (AS400Rs.State = adStateOpen) Then
        AS400Rs.Close
    End If
    If (AS400Cn.State = adStateOpen) Then
        AS400Cn.Close
    End If
    Unload Me
End Sub
Se metto Kill me non succede niente.
Come mai?