Se hai già modificato la tua procedura da dao ad ado questo non serve, altrimenti dopo la seek devi controllare se hai trovato il record in questo modo:
RS.Index = "ID_PAZIENTI"
RS.Seek "=", Me!ID_PAZIENTI
If not(RS.NoMatch) then

MsgBox "Attenzione codice già esistente"

Else
RS.AddNew
RS!ID_PAZIENTI = Me!ID_PAZIENTI
RS.Update

End If

RS.Close
perchè se il record non esiste non può fare il controllo:
RS!ID_PAZIENTI = Me!ID_PAZIENTI

Ciao