Помогите с макросом... - VB

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

Добрый день!
Мне необходимо сделать следующее.
У меня есть таблица на SQL Server. Данные из этой таблицы надо переместить в определенные ячейки Excel, потом они пересчитаются с помощью формул и уже из посчинанных ячеек в Excele с результатом их надо переместить в определенные пустые столбцы того же SQL Server (пустые поля в базе данных будут созданы для этих целей). Если знаете, подскажите пожалуйста или подскажите где посмотреть... Я даже не знаю с чего начать (думаю надо писать макрос)...
Заранее спасибо!!!

Решение задачи: «Помогите с макросом...»

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

                            <font color="blue">Sub</font> dataaccess()
<font color="blue">Dim</font> db <font color="blue">As</font> Database
<font color="blue">Dim</font> rs <font color="blue">As</font> Recordset

<font color="blue">Dim</font> Sh <font color="blue">As</font> Worksheet
<font color="blue">Dim</font> wb <font color="blue">As</font> Workbook
<font color="blue">Dim</font> s <font color="blue">As</font> <font color="blue">String</font>
<font color="blue">Set</font> Sh = ActiveSheet

<font color="blue">Set</font> db = OpenDatabase(<font color="teal">"D:\Мои документы\BRB\BRB.mdb"</font>)
<font color="blue">Set</font> rs = db.OpenRecordset(<font color="teal">"select * from KK10t"</font>)

<font color="blue">Do</font> <font color="blue">While</font> <font color="blue">Not</font> rs.EOF
  Sh.Cells(<font color="darkblue"><b>15</b></font>, <font color="darkblue"><b>5</b></font>) = rs![limit_usd]
  Sh.Cells(<font color="darkblue"><b>10</b></font>, <font color="darkblue"><b>7</b></font>) = rs![product_podname]
  Sh.Cells(<font color="darkblue"><b>9</b></font>, <font color="darkblue"><b>7</b></font>) = rs![platsys]
  Sh.Cells(<font color="darkblue"><b>8</b></font>, <font color="darkblue"><b>7</b></font>) = rs![podnaim]

 
  Sh.Calculate
  rs.Edit
  rs!IntRate = Sh.Cells(<font color="darkblue"><b>16</b></font>, <font color="darkblue"><b>7</b></font>)
  rs.Update

rs.MoveNext
<font color="blue">Loop</font>
rs.<font color="blue">Close</font>
db.<font color="blue">Close</font>
<font color="blue">End</font> <font color="blue">Sub</font>


                        