Visual Basic VBA - Erro em tempo de excução (erro sintax) ao Inserir informações BD ACCESS

[ivan_lopes]

Boa tarde...

Caros por gentileza, venho enfrentando dificuldades na implementação do código abaixo. Alguém poderia informar qual caminho devo proceder para reparar esse erro:

 

 

Segue codigo:

'===============================================================================

'===============================================================================

Dim BD As New ADODB.Connection
Dim RS As New ADODB.Recordset
Dim SQL As String
Dim CS As String
Dim VT As String
Dim VP As String
Dim VL As String
Dim G As Worksheet
Dim Tempo As Date
Dim Data As Date

Sub Inserir()

With Application
    .DisplayAlerts = False
    .ScreenUpdating = False
        
        CS = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
        "Data Source = C:\Users\Anonymous\Documents\Gerenciamento de Risco\Banco de Dados\BD_Dados.accdb"
        
          Set G = Sheets("Gerenciamento")
            G.Select
            G.Unprotect
            
        Data = G.Range("U49").Value
        Tempo = Time
        VT = G.Range("K26").Value
        VP = G.Range("B25").Value
        VL = G.Range("U25").Value
        
        'Código SQL para INSERIR dados no BD
        SQL = "INSERT Into BD_Dados (BD_Historico.Data, BD_Historico.Hora, BD_Historico.[Valor do Trader], " _
        & "BD_Historico.[Valor da Perca], BD_Historico.[Valor do Lucro]) VALUES " & _
        "(" & Format(Data, "mm/dd/yyyy") & ", " & _
        " " & Format(Tempo, "hh:mm:ss") & ", " & _
        " " & VT & ", " & _
        " " & VP & ", " & _
        " " & VL & ""
Stop


        'Abre a conexão 
        BD.Open CS
        RS.Open SQL, BD

        'Fecha todas as conexões 
        Set RS = Nothing
            con.Close
        Set cn = Nothing
        Set G = Nothing
    End With
End Sub

 

'===========================================================================================================

'===========================================================================================================

 

Salientando: Na janela de verificação imediata me retorna os valores correspondentes as informações da planilha:

? sql
INSERT Into BD_Dados (BD_Historico.Data, BD_Historico.Hora, BD_Historico.[Valor do Trader], BD_Historico.[Valor da Perca], BD_Historico.[Valor do Lucro]) VALUES (05/05/2020,  13:54:53,  10,  0,  0

 

Banco de Dados: BD_Dados

Tabela: BD_Historico

 

Desde já antecipo meus agradecimentos