Actualizar listbox & mysql

Hola a todos, tengo el siguiente inconveniente logre actualizar el listbox solo los valores que estn dolarizados, pero no logro hacer un update del mismo hacia la base de datos, solo me modifica los dos primeros registros y mal, les paso el cdigo haber si alguien puede ayudarme!

mainwindow.datalist.Enabled = False
dim ie, c as Integer

c = mainwindow.datalist.ListCount - 1
for ie = 0 to c
if MainWindow.datalist.cell(ie,10) =“0” then
MainWindow.datalist.cell(ie,11) = MainWindow.datalist.cell(ie,11)
else
Mainwindow.datalist.Cell(ie,11) = Format((textdolar.Text.Val * mainwindow.datalist.Cell(ie, 10).Val), “\$\ #########.00”)
sql = “UPDATE lista SET pesos=’”+MainWindow.datalist.cell(ie,11)+"’ WHERE id=" +Str(ie)
app.mDB.SQLExecute(sql)
end
next
mainwindow.datalist.Enabled = True

Saludos
Mike