Visual Basic - cancelar consulta

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 ejem