Добрый день.
К базе access прилинкованы таблицы SQL server. Строка подключения:

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

А вот поменять пользователя во время сеанса не получается. Приходится закрывать и снова открывать БД.
Не подскажете, как деактивировать подключение не закрывая базу?

http://www.sql.ru/forum/1241131/podkluchenie-k-sql-server