Selecionar itens com mais de duas colunas

Olá pessoal!

Estou precisando da ajuda de vocês.

Encontrei um exemplo na net que é bem útil para o que estou querendo. Porém, preciso utilizá-lo acrescentando mais duas colunas. Já tentei modificar de várias formas mas não deu certo e não tenho nenhuma noção de onde devo alterar para que a mudança seja consistente.

No arquivo que estou enviando, para uma melhor compreensão, há uma tabela que possui 4 campos e quero utilizar esses campos na seleção da lista e que, quando passar um item da lista 'selecionar' para lista 'selecionado' também transfira os 4 campos. E depois irei passar os 4 campos da lista 'selecionado' para outra tabela.

Se puderem me ajudar ficarei muito grato.

Alguém tem uma luz? Tá meio embassado por aqui.

Boa noite,
1º quer mostrar os 4 campos na caixa de listagem?
2º os registos passados para a tabela tabEstudante_Selecionado serão eliminados na tabela tabEstudante?

Bom dia.

É isso mesmo.

Boa noite,
Private Sub CmdExportaParaTabela_Click()
Dim I As Integer
'Exportar para tabela tabEstudante_Selecionado
For I = 0 To listSelecionado.ListCount - 1
CurrentDb.Execute "INSERT INTO tabEstudante_Selecionado SELECT * FROM tabEstudante WHERE ID=" & listSelecionado.Column(0, I)
Next
'Eliminar da tabela tabEstudante
For I = 0 To listSelecionado.ListCount - 1
CurrentDb.Execute "DELETE * FROM tabEstudante WHERE ID=" & listSelecionado.Column(0, I)
Next
End Sub

Para quatro colunas, adapte