.......
Dim cnt As ADODB.Connection
Dim rst As ADODB.Recordset
Dim mySQL As String
Dim strConn As String

Set cnt = New ADODB.Connection
Set rst = New ADODB.Recordset

mySQL = "SELECT * FROM [TABLE_1];"
Debug.Print mySQL

strConn = _
"Provider=Microsoft.ACE.OLEDB.12.0;WSS; " & _
" IMEX=2;RetrieveIds=Yes;DATABASE=http://адрес таблицы на sharepoint; " & _
" LIST={3F524913-37AC-4A7A-BE44-038A126FE3CD};"
'Debug.Print strConn

With cnt
.ConnectionString = strConn
.Open
End With

MsgBox cnt.State
.....