Импорт из Excel в бд SQL Server через ado в пустую таблицу - VB

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

Можно ли это сделать через ADO и проч.?
Есть БД на сервере, есть файл xls, из которого в таблицу нужно данные вытянуть .
Процедура с использованием ADO переносит данные, если в таблице БД есть хотя бы 1 запись.
А вот если таблица пустая- ничего не выходит набор пустой.
Пока выход вышел такой
Записали данные в файл sql,
а затем выполнили запрос к серверу.

Решение задачи: «Импорт из Excel в бд SQL Server через ado в пустую таблицу»

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

                            <font color="blue">For</font> s = <font color="darkblue"><b>1</b></font> <font color="blue">To</font> <font color="darkblue"><b>453</b></font>
<font color="blue">With</font> adoCommand
    .ActiveConnection = con
    .CommandText = <font color="teal">"Insert into MO(MO_Name,MO_Parent,mo_Level,MO_ADM_Address,OKATO) Values ('"</font> _
    & xlWb.ActiveSheet.Cells(s, <font color="darkblue"><b>3</b></font>).Value & <font color="teal">"','"</font> & xlWb.ActiveSheet.Cells(s, <font color="darkblue"><b>5</b></font>).Value _
    & <font color="teal">"','"</font> & xlWb.ActiveSheet.Cells(s, <font color="darkblue"><b>6</b></font>).Value & <font color="teal">"','"</font> & xlWb.ActiveSheet.Cells(s, <font color="darkblue"><b>6</b></font>).Value _
    & <font color="teal">"','"</font> & xlWb.ActiveSheet.Cells(s, <font color="darkblue"><b>7</b></font>).Value & <font color="teal">"')"</font>
    .Execute
<font color="blue">End</font> <font color="blue">With</font>
<font color="blue">Next</font> s
                        