Visual Basic - Insertar valores que me da la funcion split en BD

Dim strArr() As String

Dim strArr2() As String

Dim contador, contador2 As Integer

strArr = str.Split(";")

For contador = 0 To strArr.Length - 1

	strArr2 = strArr(contador).Split("|")

	For contador2 = 0 To strArr2.Length - 1

		MsgBox(strArr2(contador2))

	Next

Next

Public Function SP_Detalle(campo As String, campo2 As String, campo3 As String) As DataTable

       'conexion a BD

        Dim sqlCommand As New SqlCommand

        Dim sqlDataAdapter As SqlDataAdapter

        Dim ds As New DataSet

        Dim conexion As SqlConnection = New SqlConnection(BaseDts)

        sqlCommand.Connection = conexion

        sqlCommand.CommandText = "App_Inserta_Detalle_Matriculas"

        sqlCommand.CommandType = CommandType.StoredProcedure

        sqlCommand.Parameters.Add("@Matricula", SqlDbType.VarChar)

        sqlCommand.Parameters.Add("@FechaLlegada", SqlDbType.VarChar)

        sqlCommand.Parameters.Add("@PesoProgramado", SqlDbType.VarChar)

        sqlCommand.Parameters.Item(0).Value = campo

        sqlCommand.Parameters.Item(1).Value = campo2

        sqlCommand.Parameters.Item(2).Value = campo3

        sqlCommand.Connection.Open()

        sqlDataAdapter = New SqlDataAdapter(sqlCommand)

        sqlDataAdapter.Fill(ds)

        sqlCommand.Connection.Close()

        Return ds.Tables(0)

    End Function