dejo código completo, en negrito donde me marca el error

Private Sub Command1_Click()
''validar
If txtnumboleta.Text = "" Then MsgBox "Debe ingresar numero de boleta", vbInformation, "Aviso": txtnumboleta.SetFocus: Exit Sub
If combovend.Text = "" Then MsgBox "Debe ingresar vendedor", vbInformation, "Aviso": Exit Sub
If txttotal.Text = "" Then MsgBox "Necesita finalizar la venta para su registro", vbInformation, "Aviso": Exit Sub

''agregar detalle
Dim registros As Integer
registros = rstemporal.RecordCount
rstemporal.Requery
rstemporal.MoveFirst
For x = 1 To registros
With rsdetalleventas
.Requery
.AddNew
!Numero_de_boleta = txtnumboleta.Text
!Vendedora = txtvend.Text
!Fecha = DTPicker1.Value
!Codigo_de_producto = DataGrid1.Columns(0).Text
!Marca = DataGrid1.Columns(1).Text
!Descripcion = DataGrid1.Columns(2).Text
!Cantidad = DataGrid1.Columns(3).Text
!Precio = DataGrid1.Columns(4).Text
!iva = txtiva.Text
!Total = txttotal.Text
.Update
.Requery
End With
If x = registros Then Else rstemporal.MoveNext
Next

'With rsventas
' .Requery
' .AddNew
' !Numero_de_boleta = txtnumboleta.Text
'' !Fecha = DTPicker1.Value
' !Vendedora = txtvend.Text
'' !iva = txtiva.Text
' !Total = txttotal.Text
' .Update
' .Requery


'End With

With rstemporal
.Requery
.MoveFirst
For y = 1 To .RecordCount
rsproductos.Requery
rsproductos.Find "Codigo='" & !Codigo_de_producto & "'"
if .bof or .eof then exit sub
rsproductos!Cantidad = rsproductos!Cantidad - !Cantidad
rsproductos.UpdateBatch
If y = .RecordCount Then
Else
.MoveNext
End If
Next
End With




MsgBox "La boleta fue ingresada correctamente", vbInformation, "aviso"
borrartemporal