Visual Basic - VER AVANCE DE PROGRESSBAR MIENTRAS SE EJECUTA SQL

Señores: Alguien sabe o tiene alguna idea de cómo hacerle para ver el avance de un progressbar mientras se ejecuta un query de sql (select, insert, update,delete, backup,restore, etc). De tal manera que cuando llego a la línea de código que dice:

miconexion.execute(sql)

(donde sql es el query)

el progressbar avance hasta que se termine de ejecutar el query con un valor de 100%.

Espero y alguien pueda ayudarme. Saludos

proba asi

progress.max=rs.recordcount
progress.min=0
preogress.value=0

do while not rs.eof
miconexion.execute(sql)
progress.value=progress.value +1
rs.movenext
loop

si no te sale avisa que lo arreglamos
saludos

pos aber como lo arreglamos porque no me sale.

Agradezco tu colaboración, pero el código no funciona precisamente como como debe ser, ya que para empezar no siempre utilizo un recordset (rs), y además el código que dice: miconexion.execute(sql) se ejecuta tantas veces como registros tenga el rs; es decir , si sql="update mitabla set campo1='valor1'" entonces va a hacer rs.recordcount veces lo mismo ¿estás de acuerdo? y lo que quiero hacer es que mientras se ejecuta el query, es decir miconexion.execute(sql) el progressbar está subiendo hasta que termine de ejecutarse la sentencia miconexion.execute(sql)

Alguna otra idea?

De antemano, te agradezco. Saludos

El progress te va a mostrar la cantidad de veces que hagas algo, di vos haces un update de una sola ves para visual basic solo haces una sola accion, el resto se encarga la base de datos, hay que ver si el motor de la base de datos te va entregando un registro de que cantidad de registros va modificando. pienso que es asi, por ahi alguien lo tiene echo y te lo pasa

saludos

Pues si alguien tiene algo parecido pues que comparta y se lo agradeceré