Dim qt As QueryTable
sqlstring = "select * from Table_1"
connstring = "ODBC;DRIVER=SQL Server;SERVER=SERVER;UID=SA;PWD=THEPASS;DATABASE=TEST"
With ActiveSheet.QueryTables.Add(Connection:=connstring, Destination:=Range("A1"), Sql:=sqlstring)
    .Refresh
End With

'В ADO для работы с данными существуют три типа объектов:
'Connection - для подключений к базе данных.
'Command - для выполнения запросов к базе данных, не возвращающих результатов (создание таблиц - СREATE TABLE, операции вставки - INSERT, обновления - UPDATE, удаления данных - DELETE и т.д.)
'RecordSet - набор данных. Он позволяет получать данные из базы данных и обновлять их.

'Подключить Microsoft Data Objects Library 2.6 (для офисовского Microsoft Visual Basic - Tools->References)

Sub test()

'Объект Connection
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection

'Строка подключения
connString = "Provider=SQLOLEDB;Data Source=SERVER;" + "Initial Catalog=TEST;user id=sa;password=THEPASS"
conn.Open connString

SQLText = "insert into Inkas(Name,date_time,Summ) values ('Lenin','11.03.2009 01:22:00', 44444.44)"

'Выполнение команды
conn.Execute SQLText

'Закрытие подключения
conn.Close

End Sub