Private Sub Button1_Click(sender As Object, e As RibbonControlEventArgs) Handles Button1.Click
        Dim wb As excel.Workbook = Globals.ThisAddIn.Application.ActiveWorkbook
        Dim sh As excel.Worksheet = wb.ActiveSheet
        Dim range As excel.Range = sh.Range("A1")

        On Error GoTo ERRH

        Dim cn3 As New ADODB.Connection

        Call cn3.Open("Provider=SQLOLEDB.1;Integrated Security=SSPI;" _
        & "Initial Catalog=" + ComboBox1.Text + "; Data Source=" + EditBox1.Text + "")

        'cn3.ConnectionString = "Integrated Security=SSPI;Persist Security Info=True;Initial Catalog=" + ComboBox1.Text + ";Data Source=" + EditBox1.Text + ";Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=CB901666;Use Encryption for Data=False;Tag with column collation when possible=False"

        'cn3.Open()
        Dim delt As String
        delt = "drop table " + EditBox1.Text + ""
        cn3.Execute(delt)

        With sh
            .Activate()
            .Cells.Clear()
            .Cells.ColumnWidth = 8.43
        End With

        range.Activate()

        EditBox1.Text = Nothing
        ComboBox2.Text = Nothing
        ComboBox1.Text = Nothing
        Exit Sub
ERRH:
        MsgBox("Error:" & " " & Err.Source)
    End Sub

'Set QT1 = ActiveWorkbook.Worksheets(2).ListObjects.Add(SourceType:=xlSrcExternal,
              'Source:=Array(s), LinkSource:=True, _
              'TableStyleName:=xlGuess, Destination:=Sheets("Лист2").Range("A1")).QueryTable
              
    'ct = Sheets("Лист4").Range("A2").Value + ".dbo." + Sheets("Лист4").Range("A3").Value