ник: Силыч
1. ваша переменная str - ЭТО ЗАРЕЗЕРВИРОВАННОЕ СЛОВО ! 
2.
Private Sub НомерТелЗак_BeforeUpdate(Cancel As Integer)
Dim sMsg As String,sRem As String
sMsg = nz(DLookup("[НомерТел]", "ЧерныйСписок", "[НомерТел] = '" & Me!НомерТелЗак.Value & "'"),"")
If len(sMsg)<>0 Then
sRem = nz(DLookup("[Примечание]", "ЧерныйСписок", "[НомерТел] = '" & Me!НомерТелЗак.Value & "'"),"")
msgbox "Телефон " & sMsg & " находится в черном списке по причине " & sRem
Cancel=True
End If
End Sub
3. прежде чем писать программы, плз, изучите инструмент, которым вы работаете