Private Sub Command1_Click() 
Dim a As Boolean 
Dim ls_s As String 
Dim MQS As MQAX200.MQSession 
Dim QM As MQAX200.MQQueueManager 
Dim Q As MQAX200.MQQueue 
Dim MW As MQAX200.MQMessage 
Dim MR As MQAX200.MQMessage 
Dim PO As MQAX200.MQPutMessageOptions 
Dim GO As MQAX200.MQPutMessageOptions 
Const MQOO_OUTPUT = 16 
Const MQOO_INPUT_AS_Q_DEF = 1 
Set MQS = CreateObject("MQAX200.MQSession") 
Set QM = MQS.AccessQueueManager("X_MANAGER") 
MsgBox '"Подключено"
End Sub

Option Compare Database
Private Declare Function SetEnvironmentVariable Lib "kernel32" Alias "SetEnvironmentVariableA" (ByVal lpName As String, ByVal lpValue As String) As Long
Private Declare Function GetEnvironmentVariable Lib "kernel32" Alias "GetEnvironmentVariableA" (ByVal lpName As String, ByVal lpBuffer As String, ByVal nSize As Long) As Long
Function GetEnvironmentVar(sName As String) As String
    GetEnvironmentVar = String(255, 0)
    GetEnvironmentVariable sName, GetEnvironmentVar, Len(GetEnvironmentVar)
    If InStr(1, GetEnvironmentVar, Chr$(0)) > 0 Then GetEnvironmentVar = Left$(GetEnvironmentVar, InStr(1, GetEnvironmentVar, Chr$(0)) - 1)
    GetEnvironmentVar = sName + ": " + GetEnvironmentVar
End Function
Public Sub Set_MQSERVER()
    SetEnvironmentVariable "MQSERVER", "CHAN.NAL/TCP/170.170.170.170(1414)"
    Debug.Print GetEnvironmentVar("MQSERVER")
End Sub

Private Sub Command1_Click() 
Dim a As Boolean 
Dim ls_s As String 
Dim MQS As MQAX200.MQSession 
Dim QM As MQAX200.MQQueueManager 
Dim Q As MQAX200.MQQueue 
Dim MW As MQAX200.MQMessage 
Dim MR As MQAX200.MQMessage 
Dim PO As MQAX200.MQPutMessageOptions 
Dim GO As MQAX200.MQPutMessageOptions 
Const MQOO_OUTPUT = 16 
Const MQOO_INPUT_AS_Q_DEF = 1 
Set_MQSERVER
Set MQS = CreateObject("MQAX200.MQSession") 
Set QM = MQS.AccessQueueManager("X_MANAGER") 
MsgBox '"Подключено"
End Sub