hola, me gustaría si alguien puede ayudarme, que me dijeran como puedo cancelar una consulta que hago con ADO, mi código es el siguiente:
Set conImportCtas = New ADODB.Connection
conImportCtas.ConnectionString = "DSN=ZKSYS01;SYSTEM=SYSKPZ;CMT=0;DBQ=GFACZZY;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
Dim rstImportCtas As ADODB.Recordset
Dim strImportCtas As String
Set rstImportCtas = New ADODB.Recordset
rstImportCtas.ActiveConnection = conImportCtas
rstImportCtas.CursorType = adOpenStatic
rstImportCtas.LockType = adLockReadOnly
rstImportCtas.CursorLocation = adUseClient
Dim strCadena As String
strCadena = txtCadena.Text
rstImportCtas.Open strCadena, conImportCtas, adOpenDynamic, adLockOptimistic
rstImportCtas.MoveFirst
List1.Clear
Do While rstImportCtas.EOF = False
List1.AddItem rstImportCtas.Fields("sect").Value & " " & rstImportCtas.Fields("manza").Value & " " & rstImportCtas.Fields("lote").Value & " " & rstImportCtas.Fields("toma").Value & " " & rstImportCtas.Fields("digi").Value & " " & rstImportCtas.Fields("nombre").Value
rstImportCtas.MoveNext
Loop
List1.Visible = True
rstImportCtas.Close
conImportCtas.Close
lo que quiero hacer es poner un commandbutton para poder cancelar la consulta, creo que con el DoEvent, pero no sé como utilizarlo, si alguien me puede enviar un ejemplo, de antemano les agradezco....saludos...
