Вопрос про Datagrid и рекордсет - VB

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

Какие надо указать свойства CursorType и LockType чтобы после редактирования данных на гриде сохранить измененный рекордсет в другую таблицу? Заранее спасибо

Решение задачи: «Вопрос про Datagrid и рекордсет»

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

                            <font color="blue">With</font> dbfConn
<br>        .Provider = <b><font color="green">"Microsoft.Jet.OLEDB<b><font color="darkblue">.4</font></b><b><font color="darkblue">.0</font></b>"</font></b>
<br>        .Properties(<b><font color="green">"Extended Properties"</font></b>) = <b><font color="green">"dBase IV"</font></b>
<br>        .Properties(<b><font color="green">"Data Source"</font></b>) = pathToArc
<br>        .<font color="blue">Open</font>
<br>    <font color="blue">End</font> <font color="blue">With</font>
<br><font color="green">'.....................
<br>    Set dbfRS = New ADODB.Recordset
<br>    Set dbfRS.ActiveConnection = dbfConn
<br>    
<br>    With dbfRS
<br>        .CursorLocation = adUseClient
<br>        .CursorType = adOpenDynamic
<br>        .LockType = adLockOptimistic
<br>        .Open "SELECT * FROM PAYORDERS"
<br>        DoEvents
<br>        For k = 1 To N
<br>            .AddNew
<br>            .Fields(0) = v(k).SeqNo
<br>'</font>...................
<br>        .<font color="blue">Update</font>
<br>        <font color="blue">Next</font> k
<br>    DoEvents
<br>    Debug.<font color="blue">Print</font> <b><font color="green">"Before Close"</font></b>
<br>        Dim pP <font color="blue">As</font> ADODB.Property
<br>        <font color="blue">For</font> Each pP In .Properties
<br>            Debug.<font color="blue">Print</font> pP.Name & Chr<b><font color="darkblue">(9</font></b>) & pP.Value
<br>        <font color="blue">Next</font> pP
<br>        <font color="blue">Set</font> .ActiveConnection = Nothing
<br>    Debug.<font color="blue">Print</font> <b><font color="green">"After Close"</font></b>
<br>        <font color="blue">For</font> Each pP In .Properties
<br>            Debug.<font color="blue">Print</font> pP.Name & Chr<b><font color="darkblue">(9</font></b>) & pP.Value
<br>        <font color="blue">Next</font> pP
                        