Lo que tienes que hacer es usar un OleDbDataReader para conectarte al archivo de excel como si fuera una base de datos mira aqui esta el codigo para conectarte y leer tu hoja dentro del mismo ciclo de lectura haces la insercion a sql
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