Puedes en lugar de hacer eso utilizar tu hoja de excel como si fuera una tabla de una base de datos he aqui el codigo para hacerlo dentro del cilco puedes poner un contador de registros o puedes de una vez insertarlos en otra DB
Código:
imports System.Data.OleDb
Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=H:\\Calidad\\IQS Team\\Gerardo Hernandez\\sqlPCBA614.xls;Extended Properties=Excel 8.0;"
Dim objConn As New OleDbConnection(sConnectionString)
objConn.Open()
Dim objCmdSelect As New OleDbCommand("SELECT * FROM sqlPCBA", objConn)
Dim sqlDR As OleDbDataReader = objCmdSelect.ExecuteReader()
sqlCon.Open()
Do While sqlDR.Read()
Aqui haces tu insecion
Loop