Trouble getting Subreport to work in VB Windows Form

I have a Windows Form that uses Windows ReportViewer for displaying a report.  The report is similar to a master - detail report in that it displays employee information and displays dependent information as a subreport.  I am getting an error saying the subreport can not be displayed and I don't know why.  I've included the code below and the report definition:

DataSet: EmployeeListingDataSet - contains two tables, Employee and Dependents
ReportViewer1: Contains EmployeeListing.rdlc

EmployeeListing.rdlc Information
========================
Report Paramenters: None
Report Data Source: EmployeeListingDataSet_Employee
A List is used in the report for displaying the Employee Data
List Properties:  Data Set name: EmployeeListingDataSet_Employee; Detail Grouping: EmployeeID

Dependents Subreport Properties: Name: EmployeeListingDependents_subreport;  Subreport: EmployeeListingDependents;  Paramters: Parameter Name - EmployeeID; Parameter Value - Fields!EmployeeID.Value

EmployeeListingDependents.rdlc Information
=================================
Report Parameters: EmployeeID
Report DataSource: EmployeeListingDataSet_Dependents
A Table is used to display Dependent info
Table Properties: Data set name: EmployeeListingDataSet_Dependents;  Filter: Fields!EmployeeID.Value = Parameters!EmployeeID.Value

Any help would be greatly appreciated!

Imports Microsoft.Reporting.WinForms

Public Class EmployeeListing
    Private Sub EmployeeListing_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'EmployeeListingDataSet.Dependents' table. You can move, or remove it, as needed.
        Me.DependentsTableAdapter.Fill(Me.EmployeeListingDataSet.Dependents)
        'TODO: This line of code loads data into the 'EmployeeListingDataSet.Employee' table. You can move, or remove it, as needed.
        Me.EmployeeTableAdapter.Fill(Me.EmployeeListingDataSet.Employee)
        AddHandler Me.ReportViewer1.LocalReport.SubreportProcessing, AddressOf DependentsSubreportProcessingEventHandler

        Me.ReportViewer1.RefreshReport()
    End Sub

    Public Sub DependentsSubreportProcessingEventHandler(ByVal sender As Object, _
     ByVal e As SubreportProcessingEventArgs)
        Dim rptDataSource As New ReportDataSource("EmployeeListingDataSet", Me.EmployeeListingDataSet.Dependents)
        e.DataSources.Add(rptDataSource)
    End Sub

End Class

Select allOpen in new window