[VB6] Programma (connesso a DB) che non si chiude

[MDM]

ok
piccola nota, come vedete le query sono indicate in un file esterno in modo da poter essere aggiunte, rimosse o modificate facilmente

Dim DBName As String
Dim ASql As Variant
Dim NASql As Integer
Dim DB As Database

Private Sub Form_Activate()
Dim SEr As String, S As String
Dim LastSqlEr As String
Dim I As Integer
Dim Errors As Boolean
    NASql = 0
    Errors = False

        F = FreeFile
        Open "query.txt" For Input As #F
        
        Set DB = OpenDatabase("db.mdb")
                
        While EOF(F) = False
            Line Input #F, S
            If Len(Trim(S)) > 0 Then
                If NASql = 0 Then
                    ReDim ASql(1)
                    NASql = 1
                    ASql(0) = S
                Else
                    ASql(NASql) = S
                    NASql = NASql + 1
                    ReDim Preserve ASql(NASql)
                End If
            End If
        Wend
        Close #F
                
        If NASql > 0 Then
            'eseguo le varie query
            
            For I = 0 To NASql - 1
                LblN = (I + 1) & " / " & NASql
                Lst.AddItem ASql(I), 1 'visualizzo la query in una listbox
                
                DoEvents
                
                DB.Execute (ASql(I))
                
                If Err.Number <> 0 And LastSqlEr <> Err.Description Then
                    LastSqlEr = Err.Description
                    Lst.AddItem "Errore " & Err.Number & ": " & LastSqlEr, 2
                    Errors = True
                Else
                    Lst.AddItem "Esito: OK", 2
                End If
            Next I
        End If
        
    If Errors=false Then
        MsgBox "temp"
        Unload Me
        End
    End If
End Sub