Error de SQL

Hola Grupo

Tengo este codigo y lo que quiero haxcer es que me funcione sea por
uno o por el otro lado
la idea es que cuando la gente escoje la ficha detalles producto
"Forms!frm_factura!tab_d_factura.Value = 1" se puedan agregar
detalles ese formulario si la gente escoje la otra ficha se metan los
datos en ese formulario

la segunda parte del IF funciona sin problema pero la primera me da
error de SQL

"instruccion SQL no valida se esperaba 'DELETE`; 'INSERT';
'PROCEDUTRE'; SELECT O UPDATE"

Alguna sugerencia al respecto


Gracias


Private Sub cmd_aceptar_Click()
On Error GoTo Err_cmd_aceptar_Click
Dim cnn As ADODB.Connection
Set cnn = CurrentProject.Connection
Dim lid_d_factura As Long
Dim lid_factura As Long
Dim lid_prenda As Long
Dim bval_unitario As Currency

If Forms!frm_factura!tab_d_factura.Value = 1 Then

Dim rsqry_d_inv_prendas As ADODB.Recordset

Dim scolor_prenda As String
Dim fcant_producto As Single


Set rsqry_d_inv_prendas = New ADODB.Recordset
With rsqry_d_inv_prendas
.Open "qry_d_inv_prendas", cnn, adOpenDynamic,
adLockOptimistic
.AddNew
!id_factura = Forms!frm_factura!txt_id_factura
!id_prenda = Me.txt_id_prenda
!color_prenda = Me.txt_color_prenda
!cant_producto = Me.txt_cant_producto
.Update
.Close
End With
Set rsqry_d_inv_prendas = Nothing
Set cnn = Nothing
Else

Dim rsqry_d_factura As ADODB.Recordset

' Dim lid_d_factura As Long
' Dim lid_factura As Long
' Dim lid_prenda As Long
' Dim bval_unitario As Currency

'Set cnn = CurrentProject.Connection
Set rsqry_d_factura = New ADODB.Recordset
With rsqry_d_factura
.Open "qry_d_factura", cnn, adOpenDynamic,
adLockOptimistic
.AddNew
!id_d_factura = Nz(DMax("[id_d_factura]",
"tbl_d_factura")) + 1
!id_factura = Forms!frm_factura!txt_id_factura
!id_prenda = Me.txt_id_prenda
!porc_iva = Me.txt_porc_iva
!cant_producto = Me.txt_cant_producto
!color_prenda = Me.txt_color_prenda
!val_unitario = Me.txt_val_unitario

.Update
.Close
End With
Set rsqry_d_factura = Nothing
Set cnn = Nothing
Forms!frm_factura!fsub_d_factura.Form.Requery
End If
Me.txt_id_prenda = 0
Me.cbo_nom_prenda.Value = 0
Me.txt_cant_producto = 1
Me.txt_color_prenda = ""
Me.txt_val_unitario = 0

Me.txt_id_prenda.SetFocus


Exit_cmd_aceptar_Click:
Exit Sub

Err_cmd_aceptar_Click:
MsgBox Err.Description
Resume Exit_cmd_aceptar_Click
End Sub