1. Попробуйте сделать err.clear.

2. Можно в запрос добавить свою функцию для проверки какого-нибудь поля с отключением ошибки. Пример.

Public function funTypedate(Date1) 
    On Error GoTo 999
        ' код программы
    Exit Sub
999:
    Err.Clear
End Sub