Sayın SCavusoglu, Başka formda olmasını istemediğimden,bunu Form1 yapıştırıp düzenlemeyi yaptım fakat çalıştıramadım.
Açılır kutunun adınıda cmb_adisoyadi olarak değiştirdim. yine olmadı.

Private Sub cmb_adisoyadi_NotInList(NewData As String, Response As Integer)
Dim strSQL As String, x As Integer
Dim K1 As String
x = MsgBox("Girdiginiz Isim Listede Yok! Eklensin mi ?", 52, "S O R U")
If x = vbYes Then
strSQL = "Insert Into isim_listesi ([adi_soyadi]) values ('" & NewData & "')"
MsgBox "Kaydetme Islemi Tamamlandi.", 64, "Kaydedildi"
CurrentDb.Execute strSQL, dbFailOnError
Response = acDataErrAdded
Else
End If