With ActiveSheet.QueryTables.Add(Connection:=Array( _
        "OLEDB;Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Data Source=UBAPC\SQLEXPRESS;Use Procedure for Prepare=1" _
        , _
        ";Auto Translate=True;Packet Size=4096;Workstation ID=UBAPC;Use Encryption for Data=False;Tag with column collation when possible" _
        , "=False;Initial Catalog=MICEX"), Destination:=Range("B3")) 

        .CommandType = xlCmdSql
        .CommandText = Array("SELECT paper_no, time,  ""open"", high, low,""close"",  quantity " & _
"FROM MICEX.dbo.arch_min1 where paper_no=291 " & _
"ORDER BY arch_min1.time")
......... 

 Sub Макрос10()

Dim connstring2 As String
Dim connstring1 As String

Sheets("Лист4").Activate
sqlstring = "SELECT paper_no, time,  ""open"", high, low,""close"",  quantity " & _
"FROM MICEX.dbo.arch_min1 where paper_no=291 " & _
"ORDER BY arch_min1.time"
connstring1 = _
"OLEDB;Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Data Source=UBAPC\SQLEXPRESS;Use Procedure for Prepare=1;"
connstring2 = _
        "Auto Translate=True;Packet Size=4096;Workstation ID=UBAPC;Use Encryption for Data=False;Tag with column collation when possible" & _
         "=False;Initial Catalog=MICEX"
   
With ActiveSheet.QueryTables.Add(Connection:=connstring1 & connstring2, _
        Destination:=Range("B3"))
    
    .Name = "Q10"
    .CommandType = xlCmdSql
    .CommandText = sqlstring
    .Refresh BackgroundQuery:=False
    .RefreshStyle = xlOverwriteCells
    
    .Refresh
End With
End Sub

Sub Macros11()
Dim strsql As String
strsql = "SELECT paper_no, time,  ""open"", high, low,""close"",  quantity " & _
"FROM MICEX.dbo.arch_min1 where paper_no=291 " & _
"ORDER BY arch_min1.time"
'gt.Refresh
MsgBox ActiveSheet.QueryTables.Count
ActiveSheet.QueryTables("Q10").CommandText = strsql 'Здесь иногда возникает ошибка, почему - не знаю
ActiveSheet.QueryTables("Q10").Refresh
End Sub

Sub Macros12()
'gt.Refresh
Dim strsql As String
strsql = "SELECT paper_no, time,  quantity " & _
"FROM MICEX.dbo.arch_min1 where paper_no=291 " & _
"ORDER BY arch_min1.time"
MsgBox ActiveSheet.QueryTables.Count
ActiveSheet.QueryTables("Q10").CommandText = strsql 'Здесь иногда возникает ошибка, почему - не знаю
ActiveSheet.QueryTables("Q10").Refresh
End Sub

 

Sub AdStrQuery()
 'Dim xlSheet As Excel.Worksheet
 Dim sqlstring As String
 sqlstring = "INSERT Frends000(Сod, Family, Name, BDay) " & _
    "VALUES (25,'aaa', 'bbb', '12.12.1968'),(26,'ccc', 'bbb', '12.12.1955'),(27,'rrr', 'bbb', '12.12.1957');"
Set rs = New ADODB.Recordset
    rs.Open sqlstring, cn
Set rs = Nothing
End Sub