Visual Basic - No me cambia la label

A ver quin me dice porque pasa esto: El Caption de la Label titmensaje no cambia. El nombre y todo está bien.
+++codigo+++

Do Until rst.EOF
contador = contador + 1
progreso.Value = Fix(100 * (contador / limcontador))
titmensaje.Caption = "Importando clientes ...." & contador & " de " & limcontador
Data1.Recordset.AddNew

Data1.Recordset.Fields(0) = rst.Fields(0)
Data1.Recordset.Fields(1) = Left(rst.Fields(1), 40)
Data1.Recordset.Fields(2) = rst.Fields(2)
Data1.Recordset.Fields(3) = rst.Fields(3)
Data1.Recordset.Fields(4) = rst.Fields(4)
Data1.Recordset.Fields(5) = rst.Fields(5)
Data1.Recordset.Fields(6) = rst.Fields(6)

Data1.Recordset.Update
Sleep (100)
rst.MoveNext
Loop
rst.Close
cnn.Close

Necesitas refrescar la información :
Titmensaje.Caption = " xxxxxxxx"
Titmensaje.Refresh