В EXEL не удается просмотреть данные через Microsoft Query. А как их можно просмотреть через VBA? Мне нужно посмотреть к какой таблице или представлению (через ODBC) подключена база данных с помощью Microsoft Query. Т.е. какой источник данных в SQL Server будет у моих табличек EXEL.
Буду ОЧЧЧЧЧЕНЬ признателен за любую помощь по данному вопросу.

А что именно надо прописать в макросе, чтобы отобразилась нужная мне информация?
Пробую:
Dim TEMPDB As CreateWorkspace
Set TEMPDB = CreateWorkspace(Name:="TEMPDB", UserName:="sa", Password:="sa", UseType:=dbUseODBC)
Результата никакого, может я что-то не правильно пишу?

Спасибо большое Вам за совет, но к сожалению макрос не запустился.
VBA при запуске пишет:
"Object variable or With block variable not set".
(Ссылку в Tools поставил).

Спасибо Вам большое, добавил строку, но на этот раз EXEL пишет:
Login failed for user "null".

И что же он хочет???

Очень Вам благодарен, макрос работает, но теперь возник другой вопрос:
а как посмотреть в окне Immediate, какой источник данных в SQL Server будет у моих табличек EXEL?
Что для этого надо написать в окне Immediate?

Спасибо за совет, но VBA, при запуске:
With gConnection
Debug.Print .Provider
Debug.Print .Properties("Data Source").Value
Debug.Print .Properties("Initial Catalog").Value
debug.? gConnection.ConnectionString
End With

мне пишет:
"Compile error:
Expected End With".

Подскажите пожалуйста, что надо сделать?

Написал. А в итоге все-равно ничего не получается. Пишет:
"Compile error:
Expected End With".
Как быть, подскажите PLEASE!!!

В окне Immediate пишу:
With gConnection
Debug.Print .Provider
Debug.Print .Properties("Data Source").Value
Debug.Print .Properties("Initial Catalog").Value
debug.Print gConnection.ConnectionString
End With

Сам текст программы:
Public gConnection As ADODB.Connection
public rstTmp As ADODB.Recordset
' открытие соединения
Public Sub TestConnection()

On Error GoTo errH:
Set gConnection = New ADODB.Connection
With gConnection
.Provider = "SQLOLEDB"
.ConnectionTimeout = 100
.CommandTimeout = 100
.Properties("Data Source").Value = “DIGGER”
.Properties("Initial Catalog").Value = “TM_WS”
.Properties("User ID").Value = “sa”
.Properties("Password").Value = “sa”
.Open
End With
Exit sub
errH:
msgbox err.description
End sub
' открытие курсора
Public Sub OpenCursor(pstrSQL As String, ByRef prstTmp As Recordset)
Set prstTmp = New Recordset
With prstTmp
.CursorType = adOpenDynamic
.CursorLocation = adUseClient
.LockType = adLockOptimistic
.Source = pstrSQL
.Open .Source, gConnection
End With
End Sub

Программа выполняется замечательно, а вот результат просмотреть не получается.

Спасибо за совет. Я добавил фрагмент в программу.
Только меня интересует, как теперь результат выполнения программы посмотреть?