Cкопировать строку (TrueDBGrid 8.0 ) - VB

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

А кто знает как скопировать строку из грида (т.е. копировать текущую и вставить значения полей в новую строку)?

Решение задачи: «Cкопировать строку (TrueDBGrid 8.0 )»

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

                            <font color="blue">Private</font> <font color="blue">Sub</font> CopyStringTDB
  <font color="blue">dim</font> rs <font color="blue">as</font> ADODB.Recordset
  <font color="blue">dim</font> i <font color="blue">as</font> <font color="blue">long</font>
  <font color="blue">set</font> rs = rsGrid.Clone
  rs.AddNew
<font color="00AA00">'Предполагается что rs(0) - это первичный ключ</font>
<font color="00AA00">'А порядок работы с ним зависит от БД</font>
  <font color="blue">for</font> i = <font color="darkblue"><b>1</b></font> <font color="blue">to</font> rs.Fields.Count - <font color="darkblue"><b>1</b></font>     
    rs(i) = rsGrid(i)
  <font color="blue">next</font>
  rs.update
  TDBGrid1.Refresh
<font color="blue">End</font> <font color="blue">Sub</font>
                        