Public Sub ЗапросКсерверу()
On Error GoTo Ошибка
Dim qdf As QueryDef
Dim dbТекущая As Database
Set dbТекущая = CurrentDb
DoCmd.DeleteObject acQuery, "startQDF"                                      'удаляем startQDF
Set qdf = dbТекущая.CreateQueryDef("startQDF")
qdf.Connect = "ODBC;DRIVER=ODBC Driver 11 for SQL Server;SERVER=<сервер>;APP=Microsoft Office 2010;" _
        & "DATABASE=<база SQL>;UID=<логин>;PWD=<Пароль>
qdf.SQL = "SELECT top 1 dbo.[любая таблица].* FROM dbo.[любая таблица]"
DoCmd.OpenQuery "startQDF"
Set qdf = Nothing
DoCmd.Close acQuery, "startQDF", acSaveYes
DoCmd.DeleteObject acQuery, "startQDF"                                      'удаляем startQDF
Exit Sub
Ошибка:                                                                     'Обработка ошибки
If Err.Number = 7874 Then Resume Next                                       'нет запроса для удаления
MsgBox (Err.Description & "  " & Err.Number)
End Sub