Выдать сообщение типа "Не удалось подключиться к базе данных" и завершить работу программы. (Инициализация соединения происходит в начале работы.)
Private Sub Connection1_ConnectComplete(ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pConnection As ADODB.Connection)
If adStatus = adStatusErrorsOccurred Then MsgBox "ERROR!"
End Sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3