Private Sub Transferencia()

Dim strOrigem As String

Dim strDestino As String

strOrigem = "SELECT * FROM tblOrigem"

strDestino = "SELECT * FROM tblDestino"

rst.Open strOrigem, cnBd, adOpenKeyset, adLockOptimistic

rst2.Open strDestino, cnBd, adOpenKeyset, adLockOptimistic

rst.MoveNext

Do While Not rst.EOF

SSelecao=rst!Campo

If  sSelecao = "Competência" Then

            sCompetencia = rst!Campo2

           ElseIf sSelecao = "Valor Devido....." Then

            sTotalDevidoInss = rst!Campo2

            ElseIf sSelecao = "Contrib.Segurados" Then

            sDevidoSegurados = rst!Campo2

           End if

rst2.AddNew

            rst2!Competencia = sCompetencia

            rst2!TotalDevidoInss = sTotalDevidoInss

             rst2!DescontoSegurados = sDevidoSegurados

rst2.Update

rst.MoveNext

Loop

Exit Sub

End Sub

‘NO PRIMEIRO REGISTRO TRANSFERIDO, A SEGUNDA COLUNA ESTÁ SENDO INSERIDA EM BRANCO E ALGUNS DOS DEMAIS REGISTROS ESTÃO SE REPETINDO ..