[Resolvido]Como importar dados de uma tabela do mysql para uma tabela no access?

Boa tarde mestre tenho um código que exporta dados da tabela do Ms Access para o Mysql que funcionam normalmente agora gostaria de poder fazer o sentido oposto.

Código para exportar é esse:
Private Sub CopMySQL()
Dim Con As New ADODB.Connection
Dim rstADO As New ADODB.Recordset
Dim rstDao As DAO.Record
Con.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=127.10.32.9;PORT=3306;" _
& "DATABASE=TESTE;UID=root;PASSWORD=007;OPTION=3;"
Con.Open

rstADO.Open "SELECT * FROM contatos", Con, adOpenStatic, adLockOptimistic
Set rstDao = CurrentDb.OpenRecordset("SELECT * FROM contatos")

Do Until rstDao.EOF
rstADO.AddNew
'copiar os campos, registo por registo
rstADO("empresa").Value = rstDao("empresa").Value
rstADO("cargo").Value = rstDao("cargo").Value
rstADO("nome").Value = rstDao("nome").Value
rstADO("sexo").Value = rstDao("sexo").Value
rstADO("endereco").Value = rstDao("endereco").Value
rstADO("bairro").Value = rstDao("bairro").Value
rstADO("cidade").Value = rstDao("cidade").Value
rstADO("cep").Value = rstDao("cep").Value
rstADO("estado").Value = rstDao("estado").Value

rstADO.Update
rstDao.MoveNext
Loop

Con.Close
End Sub

É só inverter os campos:

rstDao("empresa").Value = rstADO("empresa").Value

ok obrigado criquio vou testar mais tarde dou o retorno

Criquio funcionou dessa maneira

Function CopMySQL()
Dim Con As New ADODB.Connection
Dim rstADO As New ADODB.Recordset
Dim rstDao As DAO.Recordset
'Call Conexao_OpenAx(csql)
Con.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=localhost;PORT=3306;" _
& "DATABASE=teste;UID=root;PASSWORD=007;OPTION=3;"
Con.Open

rstADO.Open "SELECT * FROM clientes", Con, adOpenStatic, adLockOptimistic
Set rstDao = CurrentDb.OpenRecordset("SELECT * FROM clientess")

Do Until rstADO.EOF
rstDao.AddNew
'copiar os campos, registo por registo
rstDao("empresa").Value = rstADO("empresa").Value
rstDao("cargo").Value = rstADO("cargo").Value
rstDao("nome").Value = rstADO("nome").Value
rstDao("sexo").Value = rstADO("sexo").Value
rstDao("endereco").Value = rstADO("endereco").Value
rstDao("bairro").Value = rstADO("bairro").Value
rstDao("cidade").Value = rstADO("cidade").Value
rstDao("cep").Value = rstADO("cep").Value
rstDao("estado").Value = rstADO("estado").Value
rstDao.Update
rstADO.MoveNext
Loop

Con.Close
End Function

Grato pelo retorno. O fórum agradece.