Запись данных в SQL Server из табл. Excel SQL запросом. - VB

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

Без проблем получаю данные из SQL Server в Excel таким образом:

ActiveSheet.QueryTables.Add(Connection:=Array( _
         _
        , _
         _
        , ), Destination:=Range()) 

        .CommandType = xlCmdSql
        .CommandText = Array( & _
 & _
)
......... 

После обработки данные из таблиц Excel надо добавить данные в другие таблицы БД SQL Server, иногда и создавать новые таблицы.
Когда-то, оч. давно (практически уже неправда), делал это из VB6. Сейчас даже не знаю с чего начать. Не пойму - ни как приконнектиться к БД для передачи ни как данные сформировать. Вроде уже все просмотрел. Наверняка задачка решенная. Помогите ссылкой или кодом.
Да, и хотелось бы один постоянный коннект создать и через него запросами чтение-запись работать.
Сейчас, ИМХО, что-то неправильное.

Решение задачи: «Запись данных в SQL Server из табл. Excel SQL запросом.»

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

                            <font color="blue">Sub</font> AdStrQuery()
 <font color="00AA00">'Dim xlSheet As Excel.Worksheet</font>
 <font color="blue">Dim</font> sqlstring <font color="blue">As</font> <font color="blue">String</font>
 sqlstring = <font color="teal">"INSERT Frends000(Сod, Family, Name, BDay) "</font> & _
    <font color="teal">"VALUES (25,'aaa', 'bbb', '12.12.1968'),(26,'ccc', 'bbb', '12.12.1955'),(27,'rrr', 'bbb', '12.12.1957');"</font>
<font color="blue">Set</font> rs = <font color="blue">New</font> ADODB.Recordset
    rs.<font color="blue">Open</font> sqlstring, cn
<font color="blue">Set</font> rs = <font color="blue">Nothing</font>
<font color="blue">End</font> <font color="blue">Sub</font>
                        