Есть вопрос по DataGrid - кто сможет - подскажите - VB

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

Господа!
Помогите КОНКРЕТНЫМ кодом (или маленьким примером).
Суть вопроса такова:
Имеется база банных Access, около 100 записей. Она постоянна и НЕ изменяется, и изменяться НЕ ДОЛЖНА!
Структура крайне проста: Код-Наименование-Цена
На форме в TextBox я ввожу данные: КодМасса (пример: 456321, где 456 - Код, 321 - масса). Эти данные вводятся именно так, никак иначе.
Что хотелось бы:
На форме после ввода данных получить в виде DataGrid таблицу следующего вида: Код-Наименование-Масса. Т.е. сделать выборку из существующей БД по полю Код, убрать Цену и добавить Массу. Повторюсь - изменять существующую БД НЕЛЬЗЯ!
Спасибо всем!!!
С Новым Годом и РОЖДЕСТВОМ!!!!!!!

Решение задачи: «Есть вопрос по DataGrid - кто сможет - подскажите»

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

                            <font color="blue">Dim</font> rsSrc <font color="blue">As</font> ADODB.Recordset
<font color="blue">Dim</font> rs2 <font color="blue">As</font> ADODB.Recordset
<font color="blue">Dim</font> Conn1 <font color="blue">As</font> ADODB.Connection

<font color="00AA00">'....</font>

<font color="blue">Private</font> <font color="blue">Sub</font> LoadRecords()
   <font color="blue">Set</font> rs2 = <font color="blue">Nothing</font>
   <font color="blue">Set</font> rs2 = <font color="blue">New</font> ADODB.Recordset
   rs2.Fields.Append <font color="teal">"Код"</font>, adInteger
   rs2.Fields.Append <font color="teal">"Наименование"</font>, adVarChar, <font color="darkblue"><b>255</b></font>
   rs2.Fields.Append <font color="teal">"Масса"</font>, adDouble
   rs2.<font color="blue">Open</font>
   
   <font color="blue">If</font> rsSrc.State = adStateOpen <font color="blue">Then</font> rsSrc.<font color="blue">Close</font>
   rsSrc.<font color="blue">Open</font> <font color="teal">"select * from Table1"</font>, Conn1, adOpenStatic, adLockReadOnly, adCmdText
   <font color="blue">Do</font> <font color="blue">Until</font> rsSrc.EOF
      rs2.AddNew Array(<font color="teal">"Код"</font>, <font color="teal">"Наименование"</font>, <font color="teal">"Масса"</font>), Array(rsSrc(<font color="teal">"Код"</font>), rsSrc(<font color="teal">"Наименование"</font>), <font color="darkblue"><b>0</b></font>)
      rsSrc.MoveNext
   <font color="blue">Loop</font>
   <font color="blue">Set</font> DataGrid1.DataSource = rs2
   rsSrc.<font color="blue">Close</font>
<font color="blue">End</font> <font color="blue">Sub</font>
                        