'Параметры для создания соединения с Excel
        Dim excelConnectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0
;Data Source=D:\MyDiplomAkvaponika\Diplom!!!!\Diplom!!!!\bin\Debug\111.xlsx;Extended properties = Excel 8.0"
        Dim excelConnection As OleDb.OleDbConnection = New OleDb.OleDbConnection(excelConnectionString)
        'Выборка производится из первого листа (Лист1)
        Dim selection As String = "SELECT * FROM [Лист1$]"
        Dim excelCommand As New OleDb.OleDbCommand(selection, excelConnection)
        Dim exReader As OleDb.OleDbDataReader

        'Параметры для создания соединения с базой SQL Server
        Dim sqlConnectionString As String = "Data Source=ИЛЬЯ-ПК\SQLEXPRESS;AttachDbFilename=C:\Program Files\Microsoft SQL Server\MSSQL11.SQLEXPRESS\MSSQL\DATA\Akvaponika.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"
        Dim connection As SqlClient.SqlConnection = New SqlClient.SqlConnection(sqlConnectionString)

        Dim sqlCommandText As String = "SELECT * FROM parametrs_of_water_tekushie"
        Dim sqlCommand As New SqlClient.SqlCommand(sqlCommandText, connection)

        Try
            excelConnection.Open()
            connection.Open()

            exReader = excelCommand.ExecuteReader()

            While exReader.Read()
                sqlCommand.CommandText = "INSERT INTO parametrs_of_water_tekushie ([N_Bass],[Date_analysis],[Time_analysis], [level_O2],[water_temperature_vverxu],[water_temperature_vnizu] ) VALUES (" _
                    & exReader.GetValue(0).ToString() & ",'" & exReader.GetValue(1).ToString() & "','" & exReader.GetValue(2).ToString() & "','" & exReader.GetValue(3).ToString() & "','" & exReader.GetValue(4).ToString() & "','" & exReader.GetValue(5).ToString() & "')"
                sqlCommand.ExecuteNonQuery()
            End While

            excelConnection.Close()
            connection.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            If excelConnection.State = ConnectionState.Open Then excelConnection.Close()
            If connection.State = ConnectionState.Open Then connection.Close()
        End Try