Dim rec As Recordset
If MsgBox("Miejscowości, która została wpisana nie ma na liście. Dopisać ją? Zanim wciśniesz OK sprawdź, czy miejscowość jest prawidłowo wpisana.", vbOKCancel) = vbOK Then
Response = acDataErrAdded
Set rec = CurrentDb.OpenRecordset("Miejscowość")
With rec
    .AddNew
        !Miejscowość = NewData
    .Update
End With
Else
Response = acDataErrContinue
End If