Option Explicit

Sub main()
    Dim ServerName, dbName, user, pass, ConnectString
    ServerName = "localhost"
    dbName = "local_track"
    user = "user"
    pass = "password"
    
    Dim oConn, oRecordset
    Set oConn = CreateObject("ADODB.Connection")
    ConnectString = "Provider=SQLOLEDB;Data Source=" & ServerName & ";Initial Catalog=" & dbName & ";UID=" & user & ";PWD=" & pass
    oConn.ConnectionString = ConnectString
    oConn.ConnectionTimeOut = 15
    oConn.CommandTimeout = 30
    oConn.Open
    Dim strSQL
    ' запрашиваем данные из БД
    strSQL = "SELECT TOP 100 PERCENT * FROM IncomeSMS WHERE smsTrackTIR Is Not Null"
    On Error Resume Next ' не останавливаемся на ошибках
    Set oRecordset = oConn.Execute(strSQL)
    If oConn.Errors.Count > 0 Then
          Dim E
          For Each E In oConn.Errors
            Debug.Print "При выполнении запроса возникла ошибка: " & E.Description
          Next
    End If
    Dim ListIndex: ListIndex = 3
    If oRecordset.EOF Then
        Debug.Print "нифига нету"
      Else
        Debug.Print "получены данные"
        Dim i
        For i = 1 To oRecordset.Fields.Count
            ' заполняем шапку
            Sheets(ListIndex).Cells(1, i).Value = oRecordset.Fields.Item(i-1).Name
        Next
        Dim j: j = 2
        Do Until oRecordset.EOF
            ' формат данных:
            For i = 1 To oRecordset.Fields.Count
                Select Case oRecordset.Fields.Item(i-1).Type
                    Case adInteger, adSmallInt
                        Sheets(ListIndex).Cells(j, i).NumberFormat = "0.00"
                    Case adDBTimeStamp
                        Sheets(ListIndex).Cells(j, i).NumberFormat = "m/d/yyyy"
                    Case Else
                        Sheets(ListIndex).Cells(j, i).NumberFormat = "@"
                End Select
                ' заполняем табличку:
                Sheets(ListIndex).Cells(j, i).Value = oRecordset.Fields.Item(i-1).Value
            Next
            oRecordset.MoveNext
            j = j + 1
        Loop
    End If
    ' выравниваем ширину колонок по данным
    Sheets(ListIndex).Cells.Select
    Sheets(ListIndex).Cells.EntireColumn.AutoFit
    Sheets(ListIndex).Range("A1").Select
    On Error GoTo 0
    oConn.Close
    Set oConn = Nothing
    Set oRecordset = Nothing
End Sub

Option Explicit
Const adInteger = 3
Const adSmallInt = 2
Const adDBTimeStamp = 135

Dim oConn, oRecordset
Set oConn = CreateObject("ADODB.Connection")
ConnectString = "Provider=SQLOLEDB;Data Source=" & ServerName & ";Initial Catalog=" & dbName & ";UID=" & user & ";PWD=" & pass
oConn.ConnectionString = ConnectString
oConn.ConnectionTimeOut = 15
oConn.CommandTimeout = 30
oConn.Open
Dim strSQL
'1. запрашиваем track_id из track по TIR
strSQL = "SELECT TOP 100 PERCENT track_id FROM track WHERE TIR LIKE '%" & TIR & "%'"
On Error Resume Next ' не останавливаемся на ошибках
Set oRecordset = oConn.Execute(strSQL)
If oConn.Errors.Count > 0  Then
      Dim E
      For Each E In oConn.Errors
        wscript.echo "При выполнении запроса возникла ошибка: " & E.Description
      Next
End If
If oRecordset.EOF Then
    wscript.echo "нифига нету"
  Else
    wscript.echo "получены данные"
    Do Until oRecordset.EOF
        'работаем с записью, обрабатываем возможные ошибки
        oRecordset.MoveNext
    Loop
End If
On Error Goto 0
oConn.Close
Set oConn = Nothing
Set oRecordset = Nothing

With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=cs001;Description=cs001;UID=read;password=read;APP=Microsoft Office 2003;WSID=s2;DATABASE=ankDic;" _
), Array("on=Yes")), Destination:=Worksheets("Данные").Range("A1"))
.CommandText = sqlstring
.Name = "??????"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=True
End With

var myFileFullPath = ...;
...
var objConnection = new ActiveXObject("ADODB.Connection");
objConnection.ConnectionString = 
   "Provider=MSDASQL;Driver={Microsoft Excel Driver (*.xls)};DefaultDir=" + 
   myFileFullPath.substring(0, myFileFullPath.lastIndexOf("\\")) + 
   ";DBQ=" +
   myFileFullPath +
   ";ReadOnly=0;FirstRowHasNames=1;";
...
objConnection.Open();