Olá, estou tentando exportar um arquivo xls que está em um diretório para uma tabela do access.
A tabela chama agendamentos se eu excluir essa tabela no bd, o código que tenho funciona, pois esse código cria uma nova tabela.
Agora vem a minha dificuldade, essa tabela já existe eu só preciso complementar os dados que está nesse arquivo xls.

Dim Origem As String 'C:modelo_agendamento.xls
Dim Destino As String ' C:bd_.mdb
Dim oCon As ADODB.Connection
Dim rst As ADODB.Recordset
Dim cSQL As String
Origem = txtorigem.Text
Destino = txtdestino.Text

On Error GoTo trata_erro

'verifica se a planilha existe
If Dir(Origem) = "" Then
MsgBox "O arquivo origem " & Origem & " Não existe !!! ", vbCritical, "Erro"
Exit Sub
End If

'verifica se o banco de dados existe , se não existir , cria-o
If Dir(Destino) = "" Then
Dim oCat As ADOX.Catalog
Set oCat = New ADOX.Catalog
oCat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Destino
End If

'abre uma conexão com a planilha do Excel
Set oCon = New ADODB.Connection
With oCon
.connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & Origem & ";" & "Extended Properties=Excel 8.0"

.Open

'monta a instrução SQL que irá gravar os dados na tabela
cSQL = "SELECT * INTO [" & txttabela.Text & "] " & _
"IN '" & Destino & "' " & " FROM [Plan1$]"

.Execute cSQL

MsgBox "Dados gravados com Sucesso em - " & Destino & " - na Tabela : " & txttabela.Text
.Close
End With
Exit Sub
trata_erro:
MsgBox Err.Description & " - " & Err.Number
Exit Sub