Error de compilación

Buenas tardes:

Después de actualizar un campo hago que se busque el valor en una
tabla y si existe me avise con un mensaje, el código siguiente me ha
funcionado sin ningún problema desde hace años pero estoy actualizando
el formulario y desde hace unos días me salta el siguiente error
despues de actualizar el campo

Error de compilación, no se ha definido la variable

La línea que da el error es Set mibd = CurrentDb()

y el código que estoy usando es el siguiente:

Dim sSQL As String
sSQL = "SELECT * FROM articulos"
Set mibd = CurrentDb()
Set rsRegistros = mibd.OpenRecordset(sSQL, dbOpenDynaset)
If rsRegistros.RecordCount > 0 Then
Do While Not rsRegistros.EOF
If Me.idarticuloa = rsRegistros!idarticuloa Then
MsgBox "EL CÓDIGO DE ARTÍCULO YA EXISTE EN LA TABLA
ARTÍCULO, ELIJA OTRO CÓDIGO DE ARTÍCULO", vbInformation
Me.idarticuloa.SetFocus
Me.Undo
Exit Do
End If
rsRegistros.MoveNext
Loop
End If

No tengo muchos conocimientos de programación pero no se que está
pasando.

¿Alguna ayuda?

Utilizo Access 2002

Gracias y un saludo