Contador de xml

Function VerificaXML() As String
Dim FSO, Diretorio As String, Pasta, Arquivo
Dim dtData As Date, DtDataMax As Date
Dim ArquivoMax As String
Diretorio = CurrentProject.Path & "\XML_NFe noroeste entrada\"

Set FSO = CreateObject("Scripting.FileSystemObject")
Set Pasta = FSO.GetFolder(Diretorio)

Dim rs1 As Recordset
Dim rs2 As Recordset
Dim rs3 As Recordset
Dim qNota As Integer
Dim qContador As Integer
qContador = 0
                    
    For Each Arquivo In Pasta.Files
        If Arquivo Like "*.xml" Then
            NomeXML = Diretorio & Arquivo.Name
            Call ImportaXML
            
            qContador = qContador + 1
            
            Set rs1 = CurrentDb.OpenRecordset("emit")
            Set rs2 = CurrentDb.OpenRecordset("Reference")
            Set rs3 = CurrentDb.OpenRecordset("COFINSAliq")
                    
            While (Not rs1.EOF)
            rs1.Edit
            If IsNull(rs1("Nota")) Then
            rs1("Nota") = qContador
            End If
            rs1.Update
            rs1.MoveNext
            Wend

            While (Not rs2.EOF)
            rs2.Edit
            If IsNull(rs2("Nota")) Then
            rs2("Nota") = qContador
            End If
            rs2.Update
            rs2.MoveNext
            Wend

            While (Not rs3.EOF)
            rs3.Edit
            If IsNull(rs3("Nota")) Then
            rs3("Nota") = qContador
            End If
            rs3.Update
            rs3.MoveNext
            Wend
        End If         
    Next
rs1.Close
rs2.Close
rs3.Close
End Function