ASP.NET - Reporte RDLC con subgrupos y totales por subgrupo

Tengo dos archivos RDLC, el primero genera un reporte agrupado y por cada grupo debe mostrar unos totales, estos totales están en un subreporte, otro RDLC, cuando genero los datos del reporte principal aparecen, pero sale error en el subreporte. Esta es mi programación, por favor ayuda.

Private Sub GenerarInf_10()
Dim rp1 As New ReportParameter("Fecini", Me.tboxFecIniRep10.Text)
Dim rp2 As New ReportParameter("Fecfin", Me.tboxFecfinRep10.Text)
Dim rp3 As New ReportParameter("pIdProv", Me.ddlProvinciaRep10.SelectedValue)

Dim lsArray(2) As String
lsArray(0) = Me.tboxFecIniRep10.Text
lsArray(1) = Me.tboxFecfinRep10.Text
lsArray(2) = Me.ddlProvinciaRep10.SelectedValue
' llenamos un datatable con un llamado a una clase que llama un servicio
dt = liI.RepDocumentosRefrendados(lsArray)

Dim SOURCE As New ReportDataSource("BD_INGENIERIA", dt)
ReportViewer1.ProcessingMode = ProcessingMode.Local
ReportViewer1.LocalReport.ReportPath = "Reportes\DocumentosRefrendados.rdlc"
ReportViewer1.LocalReport.SetParameters(New ReportParameter() {rp1, rp2, rp3})
ReportViewer1.LocalReport.DataSources.Clear()
ReportViewer1.LocalReport.DataSources.Add(SOURCE)

AddHandler ReportViewer1.LocalReport.SubreportProcessing, AddressOf Me.LocalReportOnSubreportProcessing
ReportViewer1.LocalReport.Refresh()
End Sub

Public Sub LocalReportOnSubreportProcessing(ByVal sender As Object, ByVal e As SubreportProcessingEventArgs)

Dim srp1 As New ReportParameter("pArea", e.Parameters("idarea").Values.FirstOrDefault())
Dim srp2 As New ReportParameter("pEntidad", e.Parameters("identidad").Values.FirstOrDefault())
Dim srp3 As New ReportParameter("pDepe", e.Parameters("iddependencia").Values.FirstOrDefault())
Dim srp4 As New ReportParameter("Fecini", Me.tboxFecIniRep10.Text)
Dim srp5 As New ReportParameter("Fecfin", Me.tboxFecfinRep10.Text)
Dim srp6 As New ReportParameter("pOpc", "1")
Dim srp7 As New ReportParameter("idprov", e.Parameters("idprovincia").Values.FirstOrDefault())

e.DataSources.Clear()

Dim lsSubRep(6) As String
lsSubRep(0) = e.Parameters("idarea").Values.FirstOrDefault()
lsSubRep(1) = e.Parameters("identidad").Values.FirstOrDefault()
lsSubRep(2) = e.Parameters("iddependencia").Values.FirstOrDefault()
lsSubRep(3) = Me.tboxFecIniRep10.Text
lsSubRep(4) = Me.tboxFecfinRep10.Text
lsSubRep(5) = "1"
lsSubRep(6) = e.Parameters("idprovincia").Values.FirstOrDefault()

dt = liI.RepDocumentosRefrendadosAgrupado(lsSubRep)

Dim SOURCE As New ReportDataSource("DataSet1", dt)
e.DataSources.Add(SOURCE)

End Sub