SQL DAO no actualiza base de datos

Compañeros estoy intentando ejecutar una consulta de datos anexados
utilizando DAO. Tras algunos problemas con el código que me daba
errores ahora ya no me da ningún error pero no se actualiza la base de
datos.

¿Podríais ayudarme para saber dónde está la errata?. Gracias por
todo.

Sub MANDAR_ENSAYO()
Dim dbActualizarEnsayos As DAO.Database
Dim qdfConsultaTemporal As DAO.QueryDef
Dim strConsulta As String
Dim i As Integer
Dim IdMúsico As String, Fecha_de_Ensayo As Date, Falta As Boolean,
NOrden As Integer
Dim UltimoMusico As Integer
Set dbActualizarEnsayos = OpenDatabase _
(ThisWorkbook.Path & "\ENSAYOS BANDA.mdb")
Set qdfConsultaTemporal = dbActualizarEnsayos.CreateQueryDef("")
'
UltimoMusico = ThisWorkbook.Sheets("Hoja4") _
.Cells(65536, 3).End(xlUp).Row

For i = 6 To UltimoMusico
NOrden = ThisWorkbook.Sheets("Hoja4").Cells(i, 3)
IdMúsico = ThisWorkbook.Sheets("Hoja4").Cells(i, 4)
Fecha_de_Ensayo = ThisWorkbook.Sheets("Hoja4").Cells(i, 5)
Falta = ThisWorkbook.Sheets("Hoja4").Cells(i, 6)
'
strConsulta = "INSERT INTO [FALTAS DE ASISTENCIA]" & _
" (NOrden, IdMúsico, [Fecha de Ensayo], Falta) " & _
"VALUES (" & NOrden & ", "" & IdMúsico & "", "" & Fecha_de_Ensayo
& "", "" & Falta & "");"
'
'MsgBox Path
With qdfConsultaTemporal
.Sql = strConsulta
.Execute
End With
Next i
End Sub