Public Function SetQuryDataToWs(wsSheet As Worksheet, aODBC, aUID, aPWD, stSQL As String) As Boolean
    Dim cnt As ADODB.Connection
    Dim rst As ADODB.Recordset
     
    Dim qtData As QueryTable
    Dim rnStart As Range
     
    Set cnt = New ADODB.Connection
    'MsgBox stSQL
     
    With wsSheet
        Set rnStart = .Range("A1")
    End With
     
    With cnt
        .CursorLocation = adUseClient
        .Open aODBC, aUID, aPWD
        .CommandTimeout = 0
        Set rst = .Execute(stSQL)
    End With
     
     'Here we add the Recordset to the created QueryTable.
    Set qtData = wsSheet.QueryTables.Add(rst, rnStart)
     
     'In order to view any data the QueryTable need to be refreshed.
    'qtData.Refresh
    qtData.RefreshStyle = xlInsertEntireRows
    qtData.Refresh False
     
     'Cleaning up.
    rst.Close
    cnt.Close
    Set rst = Nothing
    Set cnt = Nothing
  SetQuryDataToWs = True
End Function