Скрипт ввода данных в БД - VB

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

Приветствую господа знатоки!
Дайте пожалуйста кусок кода SQL (запрос), который записал бы элементы LIstbox'а в базу данных. ADODC Recordset очень долго это делает. Вот мой кусок из VB. Спасибо!!!!

For i = 0 To Adodc1.Recordset.RecordCount - 1
If Trim(Adodc1.Recordset("num")) = Val(lstSold.List(j)) Then

Adodc1.Recordset("agent") = cmbAgent.Text
Adodc1.Recordset("datesold") = Date
Adodc1.Recordset("price") = txtPrice
Adodc1.Recordset("status") = "1"
Adodc1.Recordset("agreement") = "NO"
       
If chkCash.Value = Checked Then
   Adodc1.Recordset("nodebt") = 1
ElseIf chkNoCash.Value = Checked Then
   Adodc1.Recordset("fulldebt") = 1
End If
   Exit For
End If
   Adodc1.Recordset.MoveNext
Next i
Next j

Решение задачи: «Скрипт ввода данных в БД»

textual
                            Листинг программы 
                        
                            UPDATE MyTable
SET agent=..., datesold=..., status='1', agreement='NO'
WHERE num IN (список номеров через запятую);