[Resolvido]Erro de Execução

Pessoal tenho a seguinte instrução

Private Sub Texto6_AfterUpdate()
CurrentDb.Execute "INSERT INTO tbl_VendaDetalhe(DetalheCódigovenda,Descrição,ValorUnit) Values(" & Forms!frmvendas!Códigovenda & ",'Geral','" & Format(Me!Texto6, "Currency") & "');"
Forms!frmvendas.Form!detalhevenda.Requery
Forms!frmvendas.Recalc
Forms!frmvendas!detalhevenda!chkImpresso = 1
Forms!frmvendas!CodBarras = ""
Forms!frmvendas!CodBarras.SetFocus
End Sub

A linha amarela da erro de execução se não estiver nenhum registro no subform, mas se tiver pelo menos um registro funciona perfeitamente
Como corrigir isso?

Private Sub Texto6_AfterUpdate()
On Error Resume Next
CurrentDb.Execute "INSERT INTO tbl_VendaDetalhe(DetalheCódigovenda,Descrição,ValorUnit) Values(" & Forms!frmvendas!Códigovenda & ",'Geral','" & Format(Me!Texto6, "Currency") & "');"
Forms!frmvendas.Form!detalhevenda.Requery
Forms!frmvendas.Recalc
Forms!frmvendas!detalhevenda!chkImpresso = 1
Forms!frmvendas!CodBarras = ""
Forms!frmvendas!CodBarras.SetFocus
End Sub

Valeu Leandro já corrigi!

Obrigado pelo retorno.