Prova così

Private Sub CodiceFornitore_AfterUpdate()

'Questa procedura stabilisce una connessione
'con il database corrente con le 2 righe sotto riportate

Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset


'assegno ad una variabile il valore della maschera corrispondente
'al campo CodiceFornitore

CaratteriDigitati = Me.CodiceFornitore

'Crea l'oggetto di connessione
Set conn = CurrentProject.Connection

'Crea un nuovo Recordset
Set rst = New ADODB.Recordset

' Apre la tabella o la query
rst.Open "SELECT COUNT(CodiceFornitore) FROM FORNITORE WHERE CodiceFornitore ='" & CaratteriDigitati & "'", conn

flag = rst.Fields("CodiceFornitore")
'appoggio = flag

If flag > 1 Then
MsgBox "Codice già presente"

End If

End Sub