Я пытаюсь запустить макрос и он выдает мне ошибку времени выполнения

---

Я попытался отладить, и это дает мне ошибку на MyConn.Открытая линия:



Dim MyConn As New ADODB.Connection ' для таблиц доступа прогнозистов

Const ForecasterConnString As String = "DSN=Forecaster"

Дим я как целое число, как строку strSQL, intRows как целое
Дим номер как строку, QtyReq как двойные, DateReq как струна, DateLoaded как дата, загрузке, как струна, strProdCode как строку

MyConn.ConnectionString = ForecasterConnString
Если MyConn.State <> adStateOpen, то
MyConn.Открыть
Конец, Если

Что я уже пробовал:

Пожалуйста, помогите мне исправить ошибку, так как я не могу загрузить данные в систему.

---