[Resolvido]Erro no formato hora

Bom dia pessoal estou tentando executar a seguinte consulta sql

       If MsgBox("Salvar agora?", vbQuestion + vbYesNo, "Aviso") = vbYes Then
       Dim strSQL As String
       strSQL = "INSERT INTO Movimento_Detalhes_Sub ( Periodo, Id_Colaborador, ID_Mov_Det, Dia, EntradaE, EntradaM, SaidaM, EntradaT, SaidaT, SaidaE, CC ) SELECT [Formulários]![Ponto_Movimento_Mestre]![Periodo] AS Período, [Formulários]![Ponto_Movimento_Mestre]![Funcionarios] AS Id_Colaborador, [Formulários]![Ponto_Movimento_Mestre]![Id_Movimento] AS Id_Movimento_Detalhes, [Formulários]![Ponto_Movimento_Mestre]![Dia_Movimento] AS Dia, [Formulários]![Ponto_Movimento_Mestre]![EntradaE] AS E_I, [Formulários]![Ponto_Movimento_Mestre]![EntradaM] AS E_M, [Formulários]![Ponto_Movimento_Mestre]![SaidaM] AS S_M, [Formulários]![Ponto_Movimento_Mestre]![EntradaT] AS E_T, [Formulários]![Ponto_Movimento_Mestre]![SaidaT] AS S_T, [Formulários]![Ponto_Movimento_Mestre]![SaidaE] AS S_I, [Formulários]![Ponto_Movimento_Mestre]![CC] AS CC;"
       DoCmd.RunSQL (strSQL)


Mas da erro conforme o print anexado



Obrigado

Pessoal resolvi da seguinte maneira:

If MsgBox("Salvar agora?", vbQuestion + vbYesNo, "Aviso") = vbYes Then
       
       Dim db As Database
           Dim tb As Recordset
           Set db = CurrentDb
           Set tb = db.OpenRecordset("Movimento_Detalhes_Sub")
           tb.AddNew
           tb!Periodo = Me.Id_Periodo
           tb!ID_Mov_Det = Me.Id_Movimento
           tb!EntradaE = Me.EntradaE
           tb!EntradaM = Me.EntradaM
           tb!SaidaM = Me.SaidaM
           tb!EntradaT = Me.EntradaT
           tb!SaidaT = Me.SaidaT
           tb!SaidaE = Me.SaidaE
           tb!CC = Me.CC
           tb!Dia = Me.Dia_Movimento
           tb!Id_Colaborador = Me.Id_Colaborador
           tb.Update
           tb.Close
           Set db = Nothing

Obrigado