Me ajudem por favor - Exportar registros para outra tabela definindo campos a serem exportados

Olá,


Tenho o seguinte codigo que exporta registros da tabela tbl_familia para a tabela tbl_educacao, atraves de um botão (exportar)
Acontece que não estou conseguindo exportar todos os registros referente a cada membro da familia para a tbl_educacao, somente o 1º registro é exportado.

[b]Private Sub exportar_Click()
Dim db1 As Database, db2 As Database, rs1 As DAO.Recordset, rs2 As DAO.Recordset, rs3 As DAO.Recordset

If MsgBox("Confirma Transferencia?", vbYesNo + vbQuestion, "CONFIRMAR") = vbYes Then

Set db1 = CurrentDb
Set rs1 = db1.OpenRecordset("tbl_educacao", dbOpenTable)
With rs1
.AddNew

![ordem] = Me.ordem
![nome] = Me.nome
.Update
DoCmd.RunCommand acCmdRefresh
End With

If MsgBox("Foi transferido os dados do formulário para todas as tabelas.", vbOKOnly + vbInformation, "Concluído") Then
DoCmd.RunCommand acCmdRefresh

End If
End If
End Sub

tbl_familia                       tbl_educacao
ordem|nome                   ordem|nome
1      |teste                     1      |teste     * apenas o primeiro registro é exportado
2      |teste2
3      |teste3

Sou muito grato pela ajuda

Boa tarde,
Respeite as regras do fórum. Escrever em maiúsculas significa gritar. Altere o título.

Private Sub exportar_Click()
currentdb.execute "INSERT INTO tbl_educacao SELECT * FROM tbl_familia"
End sub

Ola Alexandre,
Realmente funcionou, se não for pedir muito gostaria de poder escolher quais campos exportar visto que o codigo exporta todos os dados ta tbl_familia para  a tbl_educacao o que torna obrigatorio ambas as tabelas terem os mesmos campos.
tbl_familia         tbl_educacao
ordem               ordem
nome                nome
idade                escolaridade
sexo                

Quando eu tento exportar gera um erro fazendo referencia aos campos que não constam na outra tabela.

Obrigado.

2 coisas: Desculpas por ter postado em caixa alta
            Nao consigo acessar seu endereço: www.esnips.com/web/AlexandreNeves