.CommandText = Array("SELECT TOP 50 regn1,name, count (*) AS Counter_agents, sum(obk_sum) AS OBK, sum(obk_sum)*count(*) FROM (SELECT regn1, regn2, sum(obk) as obk_sum FROM kp0407 WHERE (BAL =31302 OR BAL=31303 or bal=31301) GROUP BY regn1, regn2 having sum(obk)>0), banc GROUP BY regn1,name;")

    Dim qt        As QueryTable
    Dim sConn   As String
    Dim sSQL    As String
    
    
    sConn = "ODBC;DSN=odbcName;Database=dbName"
    sSQL = "SELECT  fields FROM table"
    With Worksheets("Sheet1").QueryTables.Add(Connection:=sConn, _
            Destination:=Range("F1"), Sql:=sSQL)
            .Refresh
    End With

Sub testing()
        Dim con As adodb.connection
        Dim cmd As adodb.command
        Dim rs As adodb.recordset

        Dim sSQL As String
        Dim sCon As String
        Dim i As Integer
        Dim j As Integer

        'set your connection String update as appropriate
        sCon = "Connection String"
        sSQL = "Your SQL String"

        'open your connection
        set con = New adodb.connection()
        con.connectionstring = sCon
        con.open

        'query the database and fill a recordset
        set cmd = New adodb.command
        cmd.activeconnection = con
        cmd.commandstring = sSQL
        set rs = cmd.execute
        'write to spreadsheet
        j = 1
        With rs
            .movefirst
            Do While Not .eof
                For i = 0 To .fields.count - 1
                    cells(j, i + 1).formula = .fields(i).value
                Next i
                j = j + 1
                .movenext
            Loop
        End With
        'close all connections
        set rs = Nothing
        set cmd = Nothing
        con.close
        Set con = Nothing

    End Sub