Visual Basic - barra de progreso para un sp en vb

Necesito saber como puedo hacer una barra de progreso mientras espero que devuelta los datos un procedimieto almacenado, ya que este se ejecuta del lado del server entonces no se el tiempo de espera o a lo mejor hay algo por ahi pero no lo se

hasta el momento lo tengo asi

Set cn = New ADODB.Connection
cn.Open "sistema", "", ""
strSql = "CAN_CONSULTA_PAGOS " & Trim(txtcontrato.Text)

msgbox "Fin de proceso"

PERO me gustaria algo para el usuario

Atte

Eduardo Valle

Podrias...

1.- con un timer previamente cargado, hacer que la barra de progreso avance, y al finalizar, se reinicie, hasta que finelice la consulta, y donde pusiste el msgbox poner la finalizacion del timer, y ocultar la barra de progreso.

2.- cargar una barra deprogreso en Gifs, o en Swf, con el fin de que sea animada, bajo la misma idea del punto 1


ESPERO TE SIRVAN