Почему этот набор записей SQL не открывается в outlook VBA ? ! ?

---

Я использую аналогичный код в других областях моей программы, Моя база данных, кажется, работает нормально, строка SQL работает нормально в Management Studio, но каждый раз, когда я добираюсь до этой точки, программа выходит из рутины, она просто переходит к концу Sub, как только попадает в нее .Открытая линия ... Если есть проблема с базой данных, то наверняка я должен получить ошибку при проверке состояния (которое возвращает 0) ?!?

Sub LoopDatabaseLeague()

On Error GoTo LoopDatabaseLeagueError

SQLstr = "SELECT Name, LeagueType_ID From League Where League.[LeagueType_ID] = '2';"

myEmailFolder = ""

Set KA_RS_League = New ADODB.Recordset

If KA_RS_League.State = adStateOpen Then KA_RS_League.Close <<< State = 0

KA_RS_League.Open SQLstr, KA_DB, adOpenDynamic, adLockOptimistic <<< This line skips to the end

Do Until KA_RS_League.EOF
    KA_Which_Newsletter.ComboBox1.AddItem (KA_RS_League![Name])
    If FindString(mySubject, KA_RS_League![Name]) Then
        myEmailFolder = KA_RS_League![Name]
    End If
    KA_RS_League.MoveNext
Loop
    
KA_RS_League.Close

LoopDatabaseLeagueError:

End Sub

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

Другой код, поискал в интернете, искал коды ошибок

---