ThreadControl1.CreateNewThread AddressOf Symma, tpNormal, True

ThreadControl1.CreateNewThread AddressOf Symma(...), tpNormal, True

ThreadControl1.CreateNewThread AddressOf Symma, tpNormal, True 
z = Symma

ThreadControl1.CreateNewThread AddressOf z = Symma, tpNormal, True

ThreadControl1.CreateNewThread Symma(a), tpNormal, False

Private ThreadControl1 As clsThreading

Private ThreadControl1 As clsThreading
Private Sub Command1_Click()
    Dim mThreadPriority As ThreadPriority
    Dim mEnabled As Boolean
    Dim a As Integer
    Dim z As String
 
    mThreadPriority = tpNormal
    mEnabled = True
    
    'Create the thread
    a = ThreadControl1.CreateNewThread Symma( 4 ), tpNormal, False
    MsgBox a
End Sub

Public Function CN(ByVal server As String, ByVal db As String, ByVal zapros As String) As Recordset
        Dim conn As ADODB.Connection
        Dim rs As ADODB.Recordset
        Dim constr As String
                
        On Error Resume Next
        
        Set rs = Nothing
        Set conn = New ADODB.Connection
        
        constr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=" + db + ";Data Source=" + server + ";Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=" + server + ";Use Encryption for Data=False;Tag with column collation when possible=False"
       
        conn.Open constr
             
        Set rs = New ADODB.Recordset
        Set rs.ActiveConnection = conn
               
        rs.CursorLocation = adUseClient
        rs.Open zapros, conn, adOpenStatic, adLockOptimistic, adCmdText
        
        Set rs.ActiveConnection = Nothing
        Set CN = rs
        OutputDebugString (rs.RecordCount)
End Function

ThreadControl1.CreateNewThread CN(servername1, dbname, zapros), tpNormal, False
ThreadControl2.CreateNewThread CN(servername2, dbname2, zapros), tpNormal, False

For i =  1  To KolCluster
                   Set TT(i) = New ADODB.Recordset
                   Set TT(i) = CN(LocalServerName(i), dbname, str)
'KolCluster - количество серверов с которых надо слить данные
Next i