Private Sub Pusk_Click()

    With ActiveWorkbook.Connections("Подключение1").ODBCConnection
        .BackgroundQuery = False
        .CommandText = S
        .CommandType = xlCmdSql
        .Connection = _
        "ODBC;DRIVER=SQL Server;SERVER=Market6\M6;UID=имя;PWD=пароль;APP=Microsoft Office 2003;WSID=MARKET-BOSSOSS"
        .RefreshOnFileOpen = False
        .SavePassword = True
        .SourceConnectionFile = ""
        .ServerCredentialsMethod = xlCredentialsMethodIntegrated
        .AlwaysUseConnectionFile = False
    End With
    ActiveWorkbook.Connections("Подключение1").Refresh
 End Sub