More than 40 fields in ADO Query is too Complex

[gibra]

myData.Open mstrSQL, ConString$, adOpenDynamic, , adCmdText

ConString$ is totally wrong, in this line.

The Open methods require a ADODB.Connection object already open, of course.

Example:

    Dim CN As ADODB.Connection
    Set CN = New ADODB.Connection
    CN.ConnectionString = ConString$
    CN.Open 
    CN.CursorLocation = adUseClient

...
    myData.Open mstrSQL, CN, adOpenDynamic, , adCmdText
...

P.S. Remove all DAO references, if any, use only ADO(DB).