Выполнение в фоновом режиме - VB

Формулировка задачи:

Как сделать, чтобы процедура выполнялась в фоновом режиме и не вешала приложение на несколько минут. Процедура это подключение к удаленному SQL серверу через интернет.
Как сделать, чтобы пока она выполнялась можно было делат что-то еще в данном приложении. Например открыть еще форму и вбивать в ней текст.
Private Sub Command1_Click()
On Error GoTo error
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "Provider=SQLOLEDB.1;Password=qwerty;Persist Security Info=True;User ID=sa;Initial Catalog=northwind;Data Source=213.189.220.105,8080"
rs.Open "Select EmployeeID from employees", cn, adOpenStatic, adLockReadOnly
Set VSFlexGrid1.DataSource = rs
Exit Sub
error:
MsgBox "Can't establish connection to SQL server. Try again later" + Err.Description
End Sub

Решение задачи: «Выполнение в фоновом режиме»

textual
                            Листинг программы 
                        

                            <br>Private WithEvents cnE <font color="blue">As</font> ADODB.Connection     <font color="green">'указатель на Event-handled подключение
<br>Private WithEvents rsOrg As ADODB.Recordset    '</font>указатель на Event-handled рекордсет
<br>Private cmd <font color="blue">As</font> New ADODB.Command
<br>
                        