Niente ho fatto cosi'
codice:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error GoTo Err_QueryUnload
    If (AS400Rs.State = adStateOpen) Then
        AS400Rs.Close
    End If
    If (AS400Cn.State = adStateOpen) Then
        AS400Cn.Close
    End If
Exit_QueryUnload:
    Exit Sub
Err_QueryUnload:
    WriteLog ("QUERYUNLOAD" & err.Number & "   " & err.Description)
    Resume Next
End Sub

Private Sub Form_Unload(Cancel As Integer)
On Error GoTo Err_Form_Unload
    If (AS400Rs.State = adStateOpen) Then
        AS400Rs.Close
    End If
    If (AS400Cn.State = adStateOpen) Then
        AS400Cn.Close
    End If
    Set AS400Rs = Nothing
    Set AS400Cn = Nothing
    Set frmAvvio = Nothing
Exit_Form_Unload:
    Exit Sub
Err_Form_Unload:
    WriteLog ("FORMUNLOAD" & err.Number & "   " & err.Description)
    Resume Next
End Sub
Ma non me lo scarica ...