Вы можете остановить его с помощью «DoCmd.SetWarnings False».
Другим вариантом является попытка «В случае ошибки продолжить далее» в начале процедуры. Вы можете выполнить проверку в коде ошибки «Ошибка вызова ODBC» (я думаю, что err.number = 3151). Просто вставьте if сразу после того, как вы попытаетесь подключиться к ODBC, в случае сбоя отправьте его на выход.
On Error Resume Next
Dim db As DAO.Database 'Will also work with ADO
Dim ODBCstr As String
Set db = 'Connect with ODBC here
If Err.Number = 3151 Then 'Could also try If Err.Number <> 0 Then
GoTo Exit_ThisCode
End If
Это может сработать, если на самом деле выдается ошибка, когда не удается подключиться. Если вы решите проверить с конкретным кодом ошибки, просто убедитесь, что вы знаете правильный.