ADO recordset error "Class not registered"

Question

Using Windows 10 and office 365 on a desktop. Problem is in ACCESS when trying to create an ADO record set with the following code:

     Dim Colcon As ADODB.Connection

    Set Colcon = CurrentProject.Connection

    Dim ColRs As New ADODB.Recordset

    ColRs.ActiveConnection = Colcon

    Dim ColSQL As String

    ColSQL = "SELECT ColTbl.LastDate, ColTbl.ColCode"

    ColSQL = ColSQL + " FROM ColTbl"

    ColRs.Open ColSQL

    MsgBox "good open"

It throws the following error on the open : Run-time error'-2147221164(80040154'; Class not registered.

This same code execute when run on a system with Office 10 and Windows 7.  I have the proper ADO 6.1 registered in references, I repaired and compacted the database, and repaired Office 365 via the control panel using Change, opened a fresh database and recoded from scratch with the same result.  I have tried every conceivable ADO reference.  Nothing works. 

Called MicroSoft and they wanted me to pay to have someone look at the problem. Just looking for a way to get this fixed by letting MS know there is a problem, which seems difficult to do.