Visual Basic - Procesos Congelados

Saludos a todos:

Estoy trabajando con Visual Basic, ADO y con SQL

A la hora de ejecutar un querie dentro de visual utilizando de la siguiente manera.

Dim Cnn1 As adodb.Connection
Dim Rs1 As adodb.Recordset
Dim Query01 As String

Dim Lyreg_Precios As integer

CnString = "Provider=SQLOLEDB.1;Password=12345@;Persist Security Info=True;User ID=sa;Initial Catalog=Trabajo;Data Source= " + LTrim(RTrim(Servidor))
Set Cnn1 = New adodb.Connection
Cnn1.ConnectionString = CnString
Cnn1.Open
Cnn1.CommandTimeout = 300

Query01 = ""
Query01 = "Select A.* From Tabla01 A(Nolock), Tabla02 B(Nolock)
Where A.Articulo = B.Arrticulo
And A.Status = B.Status"

'Por ejemplo

Set Rs1 = Cnn1.Execute(Query01, RecordsAffected)

' Aqui lo ejecuto el Querie y se queda Congelado y no me responde la Aplicacion
' Quisiera sabe si hay alguna manera que se refrescara o tomar el control de la aplicacion
'como por ejemplo cancelarlo por medio de un boton o minimizar la ventana.

Lyreg_Precios = RecordsAffected
Set Rs1 = Nothing


'Yo se que utilizando RDO se puede hacer esto

Set RPSQuery = vgConBD3.CreatePreparedStatement("", "")
RPSQuery.SQL = Query01
RPSQuery.Execute 32

'Con lo siguiente se liberar la aplicacion y no se queda congelada la ventana.
While RPSQuery.StillExecuting
DoEvents
Wend

' Algo parecido quiero hacerlo pero con ADO.
' ALGUIEN SABE COMO HACER ESTO ?????

P.D. Si alguien me podria pasar como es la manera mas optima de utilizar los SELECT,
INSERT, UPDATE Y DELETE con ADO y Visual Basic y SQL.

Atte. Joel Morales

Gracias..