Sub main()

' обращение к Excel
    Dim i As Integer
    Dim v As Variant
    Dim s As String
    
    OpenExcelDB 'ADO connection ExcelConn is open - выполняется успешно
    Dim Sql As String
    Dim rs As Object
    
    '---Run the SQL SELECT Query---
    Sql = "select Topic_ID,SubjName,TopicNumb,TopicName from [sheet1$] order by Topic_ID"
    Dim L As Long
    
    Set rs = ExcelConn.Execute(Sql, L, adCmdText) ' ВОТ ЗДЕСЬ СООБЩЕНИЕ -2147217904 - не все параметры заданы
    Dim output As String
    Do
       output = output & rs(0) & ";" & rs(1) & ";" & rs(2) & vbNewLine
       Debug.Print rs(0); ";" & rs(1) & ";" & rs(2)
       rs.MoveNext
    Loop Until rs.EOF
 End Sub

Set rs=ExcelConn.Execute...' СООБЩЕНИЕ -2147217904 - не все параметры заданы