...'Transferindo registros de uma tabela para outra...

'***Declaração de variáveis
Dim sCnpj As String
Dim sCompetencia As String
Dim sTotalDevido as String
Dim sSelecao As String


Set rst2 = dbs.OpenRecordset(strCriterio2, dbOpenDynaset)
rst.MoveMin

While Not rst.EOF
If rst!Campo1 <> "" Then
sSelecao = rst!Campo1
Else
sSelecao = "Nenhum registro"
End If

If sSelecao = "Cnpj Empregador:" Then
sCnpj = rst!Campo2
ElseIf sSelecao = "Competência:" Then
sCompetencia = rst!Campo2
ElseIf sSelecao = "ValorDevido:" Then
sTotalDevido = rst!Campo2

rst2.AddNew
rst2!Cnpj = sCnpj
rst2!Competencia = sCompetencia
rst2!TotalDevidoInss = sTotalDevido
rst2.Update
End If
rst.MoveNext
Wend
MsgBox "Inclusão concluída com sucesso!!"

rst.Close
Set dbs = Nothing
rst2.Close
Exit Sub
final:
MsgBox Err.Description, vbInformation, Err.Number
End Sub

PROBLEMA: O primeiro registro transferido não está indo todo para a outra tabela. Ou seja, está sendo transferido de forma incompleta (exemplo: dos três campos na tabela  está sendo transferido apenas 01 campo). Isso só ocorre no primeiro registro; a partir do segundo registro, está tudo ok. Já verifiquei que todos os registros se encontram na tabela de onde devem ser transferidos.

Alguém sabe o que está ocorrendo??