Private Sub CommandButton2_Click()
   MsgBox ("Получить данные с сервера")
   Dim ConnectString, SQLstring, QueryResult
   ConnectString = "ODBC;DRIVER=SQL Server; SERVER=192.168.192.168;UID=MyUID; PWD=MyPassWrd; WSID=simpl_wsid; DATABASE=MyWrkDtBase; Address=192.168.192.168,1433"
   SQLstring = "select max(col1) C1_max from Table1 where (col2 like '%tu1%' or col2 like '%tu2%')"
   With ActiveSheet.QueryTables.Add(Connection:=ConnectString, Destination:=Range("A1"), Sql:=SQLstring)
      .BackgroundQuery = False
      .FieldNames = False
      .RefreshStyle = xlOverwriteCells
      .Refresh BackgroundQuery:=False
   End With
   ActiveSheet.QueryTables( 1 ).Delete 'Kill connect....
End Sub