SQL - espero q esta sea la ultima duda, ayuda pf!!

hola a tod@s! lo q estoy intentando hacer en un formulario es lo siguiente:
2 cajas de texto y 2 combos, en las cajas pones la fecha (desde - hasta), y en los combos seleccionas los datos q quieras (maquina - codigo), con esto aparecen en un subformulario los datos correspondientes,pero al ejecutar m da errores. Este es mi codigo:

Private Sub codigo_AfterUpdate()
If Me.codigo <> "" Then
DoCmd.RunSQL "DELETE * FROM codigos2"
Set rstcod = dbs.OpenRecordset("codigos2", dbopentable)
Set rsttmp = dbs.OpenRecordset("SELECT codigos.* " _
& "FROM codigos" _
& "WHERE codigos.cod_maq= '" & Me.maquina.Value & "' AND codigos.cod_fallo= '" & Me.codigo.Value & "' AND format(codigos.fecha,""dd/mm/yy"") >= '" & Me.desde.Value & "' AND format(codigos.fecha,""dd/mm/yy"") <= '" & Me.hasta.Value & "';")
xy = rsttmp.RecordCount
If Not rsttmp.EOF Then
Do Until rsttmp.EOF
With rstcod
.AddNew
!cod_fallo = rsttmp!cod_fallo
!porque = rsttmp!porque
!cod_maq = rsttmp!cod_maq
!fecha = rsttmp!fecha
!porcen = rsttmp!porcen
.Update
End With
rsttmp.MoveNext
Loop
End If
Else
msg = MsgBox("Debes elegir Código", vbOKOnly + vbCritical, "Centro de mensajes")
End If
Me.Refresh
End Sub