Erro de Sintaxe na Instrução INSERT INTO - Exportar do Excel para o Access

Bom dia pessoal,

Mais uma vez venho pedir ajuda ao fórum...

Achei uma instrução na internet para transferência de dados do Excel para Access, consegui fazer em uma de minhas planilhas, porem quando tentei em uma outra, esta apresentado um erro que esta tirando meu sono, já verifiquei de cabo a rabo as instruções e não encontrei nada de errado.

Vejam;

-------------------------------------------------------------------------------------------

Código:

Option Explicit

Private Sub CommandButton1_Click()

Dim MDB         As New ADODB.Connection
Dim RS           As New ADODB.Recordset
Dim FD           As ADODB.Field
Dim SQL         As String

Dim W            As Worksheet
Dim UltCel      As Range

Dim Ln           As Long
Dim Col          As Integer

Set W = Sheets("Planilha")
Ln = 2
Col = 1

W.Select
W.Range("A1").Select

MDB.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\juliano.vitor\Desktop\Projeto Access - Controle Custo\Controle de Custo.accdb;Persist Security Info=False;"

Set UltCel = W.Cells(W.Rows.Count, 1).End(xlUp)

Do While Ln <= UltCel.Row

        SQL = ("INSERT INTO Lançamento_Entrada_Produto")
        SQL = SQL & "(ID_Frota, NúmeroCT-e, Coleta, Remetente, CidadeOrigem, CidadeDestino, FretePeso, Natureza, Motorista)"
        SQL = SQL & " values "
        SQL = SQL & "('" & W.Cells(Ln, Col).Value & "', "             'ID_Frota,
        SQL = SQL & " '" & W.Cells(Ln, Col + 1).Value & "', "       'NúmeroCT-e, ,
        SQL = SQL & " '" & W.Cells(Ln, Col + 2).Value & "', "       'Coleta,
        SQL = SQL & " '" & W.Cells(Ln, Col + 3).Value & "', "       'Remetente,
        SQL = SQL & " '" & W.Cells(Ln, Col + 4).Value & "', "       'CidadeOrigem,
        SQL = SQL & " '" & W.Cells(Ln, Col + 5).Value & "', "       'CidadeDestino,
        SQL = SQL & " '" & W.Cells(Ln, Col + 6).Value & "', "       'FretePeso,
        SQL = SQL & " '" & W.Cells(Ln, Col + 7).Value & "', "       'Natureza,
        SQL = SQL & " '" & W.Cells(Ln, Col + 8).Value & "') "       'Motorista,

      
        RS.Open SQL, MDB      'O erro apresenta aqui, quando vou executar o banco
              
        Ln = Ln + 1
        Col = 1
        
        Application.StatusBar = Ln
        DoEvents
        
Loop

MDB.Close

Set W = Nothing
Set MDB = Nothing
Set RS = Nothing
Set FD = Nothing
Set UltCel = Nothing

End Sub

-------------------------------------------------------------------------------------------

Código de erro;

Erro em tempo de execução '-2147217900 (80040e14)':

Erro de sintaxe na instrução INSERT INTO.

Boa tarde
Movi-lhe para esta sala por não se tratar de Access, mas de Excel