erro de codigo

Private Sub cod_material_BeforeUpdate(Cancel As Integer)
Dim cod_material As String

Dim MySQL As String, MyCriteria As String, MyRecordSource As String

If (Not IsNull(DLookup("[cod_material]", "tbl_estoque", _
"[Cod_Item_Obra]= '" & Me!cod_material & "'"))) Then
cod_material = Resumenext

Else

MsgBox " Material Inexistente ", _
vbKatakana, "Atenção"
Cancel = True
Me!cod_material.Undo

End If
End Sub

Olá! Por favor, atente para as dicas abaixo:

1 - Procure elaborar títulos que sintetizem a dúvida. "Erro de código" é muito genérico;

2 - Dê o maior número de detalhes possíveis sobre o problema. Que erro que ocorre? Aparece alguma mensagem? Qual? Aponta para qual linha do VBA quando é depurado?

Quanto mais detalhes melhor.

E o que seria esse cod_material = Resumenext? Tente Exit Sub no lugar dele.