Visual Basic.NET - Guardar en Tabla MySql los registros de un excel mostrados en DataGridView Vb.Net

Imports MySql.Data.MySqlClient

Private Sub guardar_Click(sender As Object, e As EventArgs) Handles guardar.Click

	oConexion = New MySqlConnection("server=localhost; database=spectterraoptimizada; user id=root;password=1234")

	Dim agregar As MySqlCommand = New MySqlCommand("INSERT INTO spectterra Values(@HOLEID, @From, @To, @Point, @1400, @2200, @2350, @SPEC_CODE, @Au g/t, @Cu%, @sil, @Pyro, @Diaspore, @Dick, @Alun, @kaol, @Sericite, @ill, @Smec, @chl, @Epid, @Gypsum, @CARB, @Int, @Limonite, @jaro, @goe, @Hem, @Barite, @Biotite, @Comments, @Geologist, @File, @Mes, @Fecha, @Año, @Spect_Code_Verif)", oConexion)

	oConexion.Open()

	Try

		Dim fila As DataGridView = New DataGridView()

		For Each fila In DataGridView2.Rows

			agregar.Parameters.Clear()

			agregar.Parameters.AddWithValue("@HOLEID", Convert.ToString(fila.SelectedCells("Column1").Value))

			agregar.Parameters.AddWithValue("@From", Convert.ToString(fila.SelectedCells("Column2").Value))

			agregar.Parameters.AddWithValue("@To", Convert.ToString(fila.SelectedCells("Column3").Value))

			agregar.Parameters.AddWithValue("@Point", Convert.ToString(fila.SelectedCells("Column4").Value))

			agregar.Parameters.AddWithValue("@1400", Convert.ToString(fila.SelectedCells("Column5").Value))

			agregar.Parameters.AddWithValue("@2200", Convert.ToString(fila.SelectedCells("Column6").Value))

			agregar.Parameters.AddWithValue("@2350", Convert.ToString(fila.SelectedCells("Column7").Value))

			agregar.Parameters.AddWithValue("@SPECT_CODE", Convert.ToString(fila.SelectedCells("Column8").Value))

			agregar.Parameters.AddWithValue("@Au g/t", Convert.ToString(fila.SelectedCells("Column9").Value))

			agregar.Parameters.AddWithValue("@Cu%", Convert.ToString(fila.SelectedCells("Column10").Value))

			agregar.Parameters.AddWithValue("@sil", Convert.ToString(fila.SelectedCells("Column11").Value))

			agregar.Parameters.AddWithValue("@Pyro", Convert.ToString(fila.SelectedCells("Column12").Value))

			agregar.Parameters.AddWithValue("@Diaspore", Convert.ToString(fila.SelectedCells("Column13").Value))

			agregar.Parameters.AddWithValue("@Dick", Convert.ToString(fila.SelectedCells("Column14").Value))

			agregar.Parameters.AddWithValue("@Alun", Convert.ToString(fila.SelectedCells("Column15").Value))

			agregar.Parameters.AddWithValue("@kaol", Convert.ToString(fila.SelectedCells("Column16").Value))

			agregar.Parameters.AddWithValue("@Sericite", Convert.ToString(fila.SelectedCells("Column17").Value))

			agregar.Parameters.AddWithValue("@ill", Convert.ToString(fila.SelectedCells("Column18").Value))

			agregar.Parameters.AddWithValue("@Smec", Convert.ToString(fila.SelectedCells("Column19").Value))

			agregar.Parameters.AddWithValue("@chl", Convert.ToString(fila.SelectedCells("Column20").Value))

			agregar.Parameters.AddWithValue("@Epid", Convert.ToString(fila.SelectedCells("Column21").Value))

			agregar.Parameters.AddWithValue("@Gypsum", Convert.ToString(fila.SelectedCells("Column22").Value))

			agregar.Parameters.AddWithValue("@CARB", Convert.ToString(fila.SelectedCells("Column23").Value))

			agregar.Parameters.AddWithValue("@Int", Convert.ToString(fila.SelectedCells("Column24").Value))

			agregar.Parameters.AddWithValue("@Limonite", Convert.ToString(fila.SelectedCells("Column25").Value))

			agregar.Parameters.AddWithValue("@jaro", Convert.ToString(fila.SelectedCells("Column26").Value))

			agregar.Parameters.AddWithValue("@goe", Convert.ToString(fila.SelectedCells("Column27").Value))

			agregar.Parameters.AddWithValue("@Hem", Convert.ToString(fila.SelectedCells("Column28").Value))

			agregar.Parameters.AddWithValue("@Barite", Convert.ToString(fila.SelectedCells("Column29").Value))

			agregar.Parameters.AddWithValue("@Biotite", Convert.ToString(fila.SelectedCells("Column30").Value))

			agregar.Parameters.AddWithValue("@Comments", Convert.ToString(fila.SelectedCells("Column31").Value))

			agregar.Parameters.AddWithValue("@Geologist", Convert.ToString(fila.SelectedCells("Column32").Value))

			agregar.Parameters.AddWithValue("@File", Convert.ToString(fila.SelectedCells("Column33").Value))

			agregar.Parameters.AddWithValue("@Mes", Convert.ToString(fila.SelectedCells("Column34").Value))

			agregar.Parameters.AddWithValue("@Fecha", Convert.ToString(fila.SelectedCells("Column35").Value))

			agregar.Parameters.AddWithValue("@Año", Convert.ToString(fila.SelectedCells("Column36").Value))

			agregar.Parameters.AddWithValue("@Spect_Code_Verif", Convert.ToString(fila.SelectedCells("Column37").Value))

		Next

		MessageBox.Show("Datos Guardados Correctamente")

		Exit Sub

	Catch ex As Exception

		MessageBox.Show("Error")

	Finally

		oConexion.Close()

	End Try

End Sub