Adodb.command Object or provider is not capable of performing requested operation 800A0CB3 - VB

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

Привет. Нарисовал такой файлик с расширением .vbs:

cn = CreateObject()
cn.Provider = 
cn.ConnectionString = 
cn.

 cm = CreateObject()
 cm.ActiveConnection=cn

 ist=CreateObject()
ist.Charset = 
ist.
ist.loadfromfile 

 cm.CommandStream=ist

cm.execute

1.sql

TTT (ID,NAME) (,)

Выдаётся ошибка:

Error:	Object or provider is not capable of performing requested operation.
Code:	800A0CB3
Source: 	ADODB.Command

на последнюю строчку.
Такой скрипт:

cn = CreateObject()
cn.Provider = 
cn.ConnectionString = 
cn.

 cm = CreateObject()
 cm.ActiveConnection=cn
cm.CommandText=

cm.execute 

работает.
cn.version возвращает 2.8
Что делаю не так?

Решение задачи: «Adodb.command Object or provider is not capable of performing requested operation 800A0CB3»

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

                            <font color="blue">set</font> cn = CreateObject(<font color="teal">"ADODB.Connection"</font>)
<font color="00AA00">rem cn.Provider = <font color="teal">"SQLOLEDB"</font></font>
cn.provider=<font color="teal">"SQLXMLOLEDB.3.0"</font>
<font color="00AA00">rem cn.ConnectionString = <font color="teal">"User ID=admsms;Password=sms;Data Source=YVES\SMS;Initial Catalog=SMS;Use Encryption for Data=0;Auto Translate=-1;Persist Security Info=True"</font></font>
cn.ConnectionString = <font color="teal">"data provider=SQLOLEDB;User ID=admsms;Password=sms;Data Source=YVES\SMS;Initial Catalog=SMS;Use Encryption for Data=0;Auto Translate=-1;Persist Security Info=True"</font>
cn.<font color="blue">Open</font>

<font color="blue">set</font> cm = CreateObject(<font color="teal">"ADODB.Command"</font>)
<font color="blue">set</font> cm.ActiveConnection=cn
cm.dialect=<font color="teal">"{C8B522D7-5CF3-11CE-ADE5-00AA0044773D}"</font>

<font color="blue">set</font> ist=CreateObject(<font color="teal">"ADODB.Stream"</font>)
ist.Charset = <font color="teal">"windows-1251"</font>
ist.<font color="blue">open</font>
ist.loadfromfile <font color="teal">"1.sql"</font>
ist.position=<font color="darkblue"><b>0</b></font>

cm.CommandStream=ist

<font color="blue">set</font> ost=CreateObject(<font color="teal">"ADODB.Stream"</font>)
ost.Charset = <font color="teal">"windows-1251"</font>
ost.<font color="blue">open</font>

cm.Properties(<font color="teal">"Output Stream"</font>).Value = ost
cm.Properties(<font color="teal">"Output Encoding"</font>).Value= <font color="teal">"windows-1251"</font>

cm.Execute , , adExecuteStream

ost.Position = <font color="darkblue"><b>0</b></font>
Debug.<font color="blue">Print</font> ost.ReadText
                        