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

dbadapter = New SqlDataAdapter("select * from temp", mySQLConn)
         Dim builder As SqlCommandBuilder = New SqlCommandBuilder(dbadapter)
         Dim InsertCommand = New SqlCommand("insert into temp (price,inputid) values (@price,@inputid)", mySQLConn)
        InsertCommand.Parameters.Add("@price", SqlDbType.Money, 8, "price")
         InsertCommand.Parameters.Add("@inputid", SqlDbType.VarChar, 4, "inputid")
         dbadapter.InsertCommand = InsertCommand
'        ExcDS.AcceptChanges()
         dbadapter.Update(ExcDS, ExcDS.Tables(0).ToString)

Dim ExcConn As New adodb.Connection
        Dim recaff As Integer
        Dim excstring = "select * INTO temp FROM " & _
        "OPENROWSET('Microsoft.Jet.OLEDB.4.0', " & _
        "'Excel 8.0;Database=" & PrFileName & "', " & _
        "'select * from [Лист1$]')"
        ExcConn.ConnectionString = "Provider=SQLOLEDB;Data Source=*;Initial Catalog=newcodb;User Id=*;Password=*"
        ExcConn.Open()
        ExcConn.Execute(excstring, recaff)
        ExcConn.Close()

Private connection1 As OleDbConnection= New OleDbConnection ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Exp\Database.xls;Extended properties = Excel 8.0")
        'Выборка производится из первого листа (Лист1)
        Private selection  As String = "SELECT * FROM [Лист1$]"
        Private command1 As OleDbCommand
        Private da As OleDbDataAdapter 
        Private ds As DataSet= New DataSet()
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            connection1.Open()
            command1 = New OleDbCommand(selection, connection1)
            da = New OleDbDataAdapter(command1)
            da.Fill(ds)
            dataGridView1.DataSource = ds.Tables(0)
        End Sub

'Задаем команду Update и обновляем данные в базе данных
        adapter1.UpdateCommand = comanbuilder.GetUpdateCommand()
        adapter1.Update(AllTables, "Translator")
        AllTables.AcceptChanges()

 Public Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Public mySQLConnString As String = "Data Source=*;Initial Catalog=newcodb;" _
    & "User Id=*;Password=*;Trusted_Connection=False;"
    Public mySQLConn As SqlConnection
    Public dbadapter As SqlDataAdapter
    Public dbdataset As New DataSet
    Public myOLEDBconn As OleDbConnection
    Dim ExcDA As OleDbDataAdapter
    Dim ExcDS As New DataSet
        Dim ExcComm = "select * from [Лист1$]"
        Dim ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PrFileName & _
        ";Extended Properties='Excel 12.0 Xml;HDR=YES';"
        myOLEDBconn = New OleDbConnection(ConnectionString)
        myOLEDBconn.Open() ' соединение с Ехелем
        Dim ExcDA = New OleDbDataAdapter(ExcComm, myOLEDBconn) ' считываю данные с Ехеля
        ExcDA.Fill(ExcDS, "price") ' заливаю их в датасет
        DataGridView1.DataSource = ExcDS.Tables("price")  ' показываю их в датагриде
        myOLEDBconn.Close()
        mySQLConn = New SqlConnection(mySQLConnString) ' соединение с базой данных SQL
        dbadapter = New SqlDataAdapter("select * from temp", mySQLConn) ' инициализирую адаптер для SQL
        Dim builder As SqlCommandBuilder = New SqlCommandBuilder(dbadapter)
        dbadapter.InsertCommand = builder.GetInsertCommand ' создаю комманду вставки данных 
        dbadapter.Update(ExcDS, ExcDS.Tables(0).ToString) ' якобы апдейчу датасет и базу?
        ExcDS.AcceptChanges() ' ну и т.д....
        MsgBox("Заполнено!")
        mySQLConn.Close()
        ExcDA = Nothing
    End Sub