Соединение с Microsoft SQL Server 2008 R2

Есть фаил Exel. В нем забиты данные. Как с помощью макроса подключиться к базе данных SQL Server 2008 R2 и обновить значение полей(поля сопоставленны)...Опишите именно что прописать и все что этому способствует... (ну нужну ли какие нибудь библиотеки подключать)
Предположительный код

sub PutDataToDB 'Запись значений в бд
dim cn as ADODB.Connection
set cn=new ADODB.Connection
cn.connectionstring = "DATABASE=ИмяБазы;DRIVER=SQL Server;SERVER=ИмяКомпаSQL;UID=логин;PWD=пароль"
cn.open
for i=1 to 10
cn.execute "insert into ИмяТаблицы values (" & cells(i,1).value & ")"
next i
cn.close
set cnothing
end sub

Правильный нет?что нужно изменить? какие библиотеки еще нужны чтоб заработало? все по этому вопросы если можно..Кто ответит заранее спасибо

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.