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 ...