[Resolvido]erro ao deletar registro

Ola pessoal estou tendo dificuldade em deletar um registro através de um formulario

quando clico duas vezes na list box o registro e direcionado para caixa de texto e ao clicar no botão exlcluir(comando 21) da erro 3061 "parametros insuficientes eram esperados 1"

o que pode ser abaixo?

envio o codigo do botão exlcluir e do click duplo


Private Sub Lista9_DblClick(Cancel As Integer)
'On Error Resume Next

If Nz(Me!Lista9, 0) = 0 Then Exit Sub

Me!idorig = Me!Lista9.Column(0)
Me!txtdepartamento = Me!Lista9.Column(1)

End Sub
##########################

Private Sub Comando21_Click()
Dim exec As String

PergEX = MsgBox("Deseja Exluir a Origem Selecionada ?", vbOKCancel + vbDefaultButton1 + vbInformation, "Atenção")

If PergEX = vbOK Then

'DoCmd.SetWarnings False
'DoCmd.RunSQL "DELETE FROM tblorigextn WHERE Cod_origext = ('" & Me.idorig & "')"
'DoCmd.SetWarnings True

exec = "DELETE FROM tblorigextn WHERE [Cod_origext] = '" & idorig & "'"
'exec = "DELETE FROM tblorigextn WHERE Cod_origext = " & CLng(Me.idorig)
CurrentDb.Execute exec

MsgBox "Registro apagado", vbInformation, "Excluído"

Else

Cancel = True

Me.Refresh

End If
End Sub

Boa tarde Junior,

Há vários erros no seu código:

Primeiro, você não pode usar entre " & valor & " (do tipo Integer) ou '" & valor & "'" (do tipo String) se valor não for uma variável. Declare uma variável que receba o valor existente no campo Me.idorig

Dim nValor As Integer 'Ou String

nValor = Me.idorig

'DoCmd.SetWarnings False
'DoCmd.RunSQL "DELETE FROM tblorigextn WHERE Cod_origext = ('" & nValor & "')" ' Ou simplesmente " & nValor
'DoCmd.SetWarnings True

exec = "DELETE FROM tblorigextn WHERE [Cod_origext] = '" & nValor & "'" ' Ou simplesmente " & nValor
'exec = "DELETE FROM tblorigextn WHERE Cod_origext = " & CLng(nValor)
CurrentDb.Execute exec

Tente assim:

Private Sub Comando21_Click()
DoCmd.SetWarnings False
On Error Resume Next
Dim X As Integer
X = MsgBox("Deseja excluir o registro selecionado?", 20, "Atenção!")
If X = 6 Then
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True
Me.Refresh
End If
End If
End sub

Private seuBotao_Click()
DoCmd.SetWarnings False
On Error Resume Next
Dim X As Integer
X = MsgBox("Deseja excluir o registro selecionado?", 20, "Exclusão de Registros!")
If X = 6 Then
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True
Me.Refresh
End If
End sub

desculpem a demora estive resolvendo questões no trabalho e acabei ficando sem encerrar o topico mas a sugestão de vc's foi de grande ajuda valeu pessoal.