hola, estoy conectandome a un sistema de AS400 y traigo informacion de el, mi deseo es utilizar un progressbar para que me informe del avance de esta operacion, como puedo hacerle para sabe el max y el value del progressbar si cuando corro el programa como que hace una pausa e incluso no me mustra las etiquetas que pongo sino hasta que termina la conexion y la creacion del recordset, que puedo hacer, gracias por su ayuda.....les pongo el codigo que estoy utilizando....
Private Sub imporAS400()
pbrImport.Value = (pbrImport.Value + 20) 'este es el progressbar
Dim conImportCtas As ADODB.Connection
Dim rstImportCtas As ADODB.Recordset
Dim strImportCtas As String
Set conImportCtas = New ADODB.Connection
conImportCtas.ConnectionString = "DSN=CENTRO;SYSTEM=CENTRAL;CMT=0;DBQ=FACTULIB ;NAM=0;DFT=5;DSP=1;TFT=0;TSP=0;DEC=0;XDYNAMIC=1;RE CBLOCK=2;BLOCKSIZE=256;SCROLLABLE=0;TRANSLATE=1;LA ZYCLOSE=1;LIBVIEW=0;REMARKS=0;CONNTYPE=2;SORTTYPE= 0;LANGUAGEID=ENU;SORTWEIGHT=0;PREFETCH=0;DFTPKGLIB =QGPL;MGDSN=0;"
conImportCtas.Open
Set rstImportCtas = New ADODB.Recordset
rstImportCtas.ActiveConnection = conImportCtas
rstImportCtas.CursorType = adOpenStatic
rstImportCtas.LockType = adLockReadOnly
rstImportCtas.CursorLocation = adUseClient
rstImportCtas.Open "Select * From UsuarLrt Where SECT = 22 AND NOMBRE Like 'RAMIREZ%'", conImportCtas, adOpenDynamic, adLockOptimistic
rstImportCtas.MoveFirst
MsgBox rstImportCtas.Fields("NOMBRE").Value
rstImportCtas.Close
conImportCtas.Close
End Sub
