Ошибка при работе с клиентским рекордсетом: Ошибка во время выполнения многошаговой операц - VB

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

Добрый день, граждане.. Такая проблема
Создаем руками рекордсет:

ContractRSTBuild()
     rstContractElements    _
       rstContractElements.State = adStateOpen  rstContractElements.

    rstContractElements =  ADODB.Recordset
   
   rstContractElements.Fields.Append , dbText, 
   rstContractElements.Fields.Append , dbText, 
   rstContractElements.Fields.Append , adBigInt
   rstContractElements.Fields.Append , adSingle
   rstContractElements.
 

Пытаемся присвоить значение:

rstContractElements.AddNew
rstContractElements!ElementName = ElementName

На последней строчке получаем ошибку:

Произошли ошибки во время выполнения многошаговой операции. Проверьте значения всех состояний.
-

Решение задачи: «Ошибка при работе с клиентским рекордсетом: Ошибка во время выполнения многошаговой операц»

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

                            <font color="blue">Dim</font> rstContractElements <font color="blue">As</font> ADODB.Recordset
   <font color="blue">If</font> <font color="blue">Not</font> rstContractElements <font color="blue">Is</font> <font color="blue">Nothing</font> <font color="blue">Then</font> _
      <font color="blue">If</font> rstContractElements.State = adStateOpen <font color="blue">Then</font> rstContractElements.<font color="blue">Close</font>

   <font color="blue">Set</font> rstContractElements = <font color="blue">New</font> ADODB.Recordset
   
   rstContractElements.Fields.Append <font color="teal">"ElementName"</font>, adChar, <font color="darkblue"><b>150</b></font>
   rstContractElements.Fields.Append <font color="teal">"ElementCode"</font>, adChar, <font color="darkblue"><b>150</b></font>
   rstContractElements.Fields.Append <font color="teal">"ElementType"</font>, adBigInt
   rstContractElements.Fields.Append <font color="teal">"Num"</font>, adSingle
   rstContractElements.<font color="blue">Open</font>

rstContractElements.AddNew
rstContractElements!ElementName = <font color="teal">"ElementName"</font>
MsgBox (rstContractElements!ElementName)
                        