Зависание программы после вызова хранимой процедуры на сервере

Private Sub Timer1_Timer()
If ProgressBar1.Value < ProgressBar1.Max Then
ProgressBar1.Value = ProgressBar1.Value + 1
DoEvents
Else
ProgressBar1.Value = 0
DoEvents
End If
End Sub

Private Sub Command1_Click()
Timer1.Enabled = True
Dim rs As ADODB.Recordset
Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
cmd.CommandTimeout = 20000000
cmd.ActiveConnection = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Server=Сервер;Database=MyBase;Trusted_Connection=Yes"
 cmd.CommandType = adCmdStoredProc
cmd.CommandText = "Хранимка"
 
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.CursorType = adOpenStatic
rs.LockType = adLockReadOnly
rs.Open cmd
Timer1.Enabled = False
End Sub

Private ThreadControl1 As clsThreading
Private ThreadControl2 As clsThreading
Private Sub Command1_Click()
Dim mThreadPriority As ThreadPriority
Dim mEnabled As Boolean
 Set ThreadControl1 = New clsThreading
' Set ThreadControl2 = New clsThreading
    ex = 1
    mThreadPriority = tpNormal
    mEnabled = True
   'Поток 1
    ThreadControl1.CreateNewThread AddressOf Forma2, mThreadPriority, mEnabled
   'Поток 2
    ThreadControl1.CreateNewThread AddressOf Forma1, mThreadPriority, mEnabled
end sub

Public Function Forma2()
Form1.ProgressBar1.Visible = True
 
Do
        If Form1.ProgressBar1.Value >= Form1.ProgressBar1.Max Then
        Form1.ProgressBar1.Value = 0
        Else
        Form1.ProgressBar1.Value = Form1.ProgressBar1.Value + 1
        End If
Loop
Form1.ProgressBar1.Visible = False
End Function

Set cmd = New ADODB.Command

Public Function Forma1()
Dim rs As ADODB.Recordset
Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
cmd.CommandTimeout = 20000000
cmd.ActiveConnection = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Server=Сервер;Database=MyBase;Trusted_Connection=Yes"
 cmd.CommandType = adCmdStoredProc
cmd.CommandText = "Хранимка"
 
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.CursorType = adOpenStatic
rs.LockType = adLockReadOnly
rs.Open cmd
end Function

Public Declare Function CoInitialize Lib "ole32" (pvReserved As Any) As Long
Public Declare Function CoUninitialize Lib "ole32" () As Long

CoInitialize ByVal 0&
....
CoUninitialize