hola, estoy conectandome a un sistema AS400 por medio de una red de windows 2000, y estoy generando un RecordSet con información del AS400, quisiera utilizar un progressbar par mostrar el avance tanto de la conexion, como de la extraccion de informacion, solo que no se como calcular el max del progressbar ni como darle el valor a value, pues ya puse el progressbar pero cuando corro el proceso, el programa como que hace una pausa mientras se conecta y realiza el recordset, incluso las etiquetas que he puesto no se ven sino hasta que termina la conexion y generacion del RecordSet, enseguida pongo parte del codigo que estoy usando...
Private Sub imporAS400()
pbrImport.Value = (pbrImport.Value + 20)
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;RECBLOCK=2;BLOCKSIZE=256;SCROLLABLE=0;TRANSLATE=1;LAZYCLOSE=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
de antemano muchisimas gracias por la ayuda....
