SELECT * FROM [C:\Test.mdb].MSysObjects AS O

ODBC;DSN=НазваниеDSN;Database=НазваниеБД;

ODBC;DSN=НазваниеDSN;Database=НазваниеБД;UID=SA;PWD= 123456 

SELECT * FROM [ODBC;DSN=НазваниеDSN;Database=НазваниеБД;UID=SA;PWD= 123456 ].dbo.Table1 AS T

SELECT * FROM Table1 IN ЛюбоеСловоНоТолькоБезПробеловИЖелательноБезПлохихСимволов 'ODBC;DSN=НазваниеDSN;Database=НазваниеБД;UID=SA;PWD=123456'

SELECT * FROM Table1 IN "" [ODBC;DSN=НазваниеDSN;Database=НазваниеБД;UID=SA;PWD= 123456 ]

SELECT * FROM Table1 IN 'Database=НазваниеБД' [ODBC;DSN=НазваниеDSN;UID=SA;PWD= 123456 ]

With CurrentDB.QueryDefs("")

Private Declare Function GetTickCount Lib "kernel32" () As Long

Sub HowLongWindowsWork()
    Dim lngTotal As Long
    Dim intHour As Integer, intMinute As Integer, intSecond As Integer
    
    lngTotal = Format(GetTickCount() /  1000 , "0") 'всего секунд
    intHour = Int(lngTotal /  3600 )
    lngTotal = lngTotal - CLng(intHour) *  3600 
    intMinute = Int(lngTotal /  60 )
    intSecond = lngTotal - CLng(intMinute) *  60 

    MsgBox "Ваш компьютер работает в эту загрузку " & Str(intHour) & " час. " & _
        Str(intMinute) & " мин. " & Str(intSecond) & " сек.", vbInformation
End Sub

Function Test(str As String)
   MsgBox str
End Function

Select Name From
(SELECT Name, Test(Name) AS X
FROM MSysObjects) AS O;

Select Name From
(SELECT Name, Test(Name) AS X
FROM MSysObjects) AS O
Order By X;

SELECT Name, Test(Name) AS X
FROM MSysObjects

SELECT Name
FROM Запрос1

PARAMETERS Fragment Text (  255  );
SELECT Qry.Query, Qry.SQL_Text
FROM [TABLE
    (SELECT O.Name AS Query, Eval("CurrentDB.Querydefs('" & O.Name & "').SQL") AS SQL_Text
    FROM MSysObjects AS O
    WHERE O.Type =  5 
    ORDER BY O.Name)]. AS Qry
WHERE IsNull(Fragment) OR SQL_Text Like ('*' & Fragment & '*');

Dim xQuery As DAO.QueryDef\nDim strSQL As String\nDim strCnn As String\nDim i As Byte, blnCheck As Boolean\n\n\' Сначала на всякий случай следует проверить введен ли логин пользователя\nIf IsNull(txbUser.Value)=True Then\n    MsgBox "Введите логин пользователя.", vbInformation\n    txbUser.Setfocus\n    Exit Sub\nEnd If\n\' Создаём временный запрос.\nSet xQuery = CurrentDB.CreateQueryDef("")\n\' Чтобы долго не ждать можно время ожидания сократить до 1 секунды.\n\' Как не странно, если пропустить этот код, то Access почему-то при первом\n\' запуске может зависать где-то на 15-20 секунд. Вроде бы запрос простейший,\n\' никаких сложных вычислений, но всё же!\nxQuery.ODBCTimeout =  1 \n\nstrSQL = "SELECT 1 AS Test;"\nOn Error Resume Next\n\' Для примера попробуем присоединиться к 3 БД.\nFor i =  1  To  3 \n    strCnn = "ODBC;DSN=" & Choose(i, _\n        "НазваниеDSN1;Database=НазваниеБД1;", _\n        "НазваниеDSN2;Database=НазваниеБД2;", _\n        "НазваниеDSN3;Database=НазваниеБД3;") & _\n        "UID=" & txbUser.Value & ";PWD=" & txbPassword.Value & ";"\n    xQuery.Connect = strCnn\n    xQuery.SQL = strSQL\n    blnCheck = xQuery.Openrecordset.Fields( 0 ).Value\n    If Err.Number <>  0  Then\n        MsgBox "Введены неверные идентификационные данные пользователя!", vbExclamation\n        Exit Sub\n    End If\nNext i\nxQuery.Close\nSet xQuery = Nothing