Возможно, ли с помощью VBA достать данные с MSSQL Servera.

Формулировка задачи:

Возможно, ли с помощью VBA достать данные с MSSQL Servera.
Данные на Share Point Server
К примеру мне необходимо получить информацию о Рисках (Идентификатор риска, Название, Назначено, Состояние, Подверженность, Категория, Дата окончания).
Все это отображается на странице Project Web Access
Возможно с помощью sql запроса или каким-то другим способом. Подскажите, пожалуйста.

Решение задачи: «Возможно, ли с помощью VBA достать данные с MSSQL Servera.»

textual
                            Листинг программы 
                        

                            <font color="blue">Public</font> <font color="blue">Sub</font> OpenX()

   <font color="blue">Dim</font> cnn1 <font color="blue">As</font> ADODB.Connection
   <font color="blue">Dim</font> rstEmployees <font color="blue">As</font> ADODB.Recordset
   <font color="blue">Dim</font> strCnn <font color="blue">As</font> <font color="blue">String</font>
   <font color="blue">Dim</font> varDate <font color="blue">As</font> Variant

   <font color="00AA00">' Open connection.</font>
      strCnn = <font color="teal">"Provider=sqloledb;"</font> & _
<font color="teal">"Data Source=PROJECTSRV;Initial Catalog=STS_projectsrv_1;User Id=Alexandr;Password=xxx"</font>
   <font color="blue">Set</font> cnn1 = <font color="blue">New</font> ADODB.Connection
   cnn1.<font color="blue">Open</font> strCnn <font color="00AA00">'– во время открытия выдает ошибку </font>

                        