ODBC;DRIVER=ODBC Driver 11 for SQL Server;SERVER=192.168.10.3;APP=Microsoft Office 2010;DATABASE=DB_SQL;;TABLE=dbo.Table

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