Вставить строки в таблицу из файла Excel

Dim sqlConnectionString As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=путь_к_файлу_бд\Pension.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"
        Dim connection As SqlConnection = New SqlConnection(sqlConnectionString)
        Dim selection As String = "SELECT * FROM PensionReform"
Try
            connection.Open()
 
            For Each r As DataRow In ds.Tables(0).Rows
                command.CommandText = "INSERT INTO PensionReform (Год) VALUES (" & r(0).ToString() & ")"
                command.ExecuteNonQuery()
            Next
            connection.Close()
 
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
 
        'Параметры для создания соединения с Excel
        Dim excelConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Exp\Пенсионная реформа.xls;Extended properties = Excel 8.0"
        Dim excelConnection As OleDbConnection = New OleDbConnection(excelConnectionString)
        'Выборка производится из первого листа (Лист1)
        Dim selection As String = "SELECT * FROM [Лист1$]"
        Dim excelCommand As New OleDbCommand(selection, excelConnection)
        Dim exReader As OleDbDataReader
 
        'Параметры для создания соединения с базой SQL Server
        Dim sqlConnectionString As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\путь к базе данных\Pension.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"
        Dim connection As SqlConnection = New SqlConnection(sqlConnectionString)
 
        Dim sqlCommandText As String = "SELECT * FROM PensionReform"
        Dim sqlCommand As New SqlCommand(sqlCommandText, connection)
 
        Try
            excelConnection.Open()
            connection.Open()
 
            exReader = excelCommand.ExecuteReader()
 
            While exReader.Read()
                sqlCommand.CommandText = "INSERT INTO PensionReform ([Год],[Пенсионный счет],[Пенсионный счет в цифрах 1-го года], [Инфляция],[Реальный доход в цифрах 1-го года] ) VALUES (" _
                    & exReader.GetValue(0).ToString() & ",'" & exReader.GetValue(1).ToString() & "','" & exReader.GetValue(2).ToString() & "','" & Convert.ToSingle(exReader.GetValue(3)) * 100 & "%','" & exReader.GetValue(4).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
 
    End Sub