Asignar Dataset a Reporte por Codigo

[Highlander]

Aun estoy atascado con esto y encuentro poca información.

Código:

   mSqlServerCe.Conectar()

        Dim strSQLConsulta As String = "Select Nombre, Veterinario, Direccion, Telefono, Celular, Email, Web from Empresa"

        Dim da As New SqlCeDataAdapter(strSQLConsulta, conexionSql)
        Dim ds As New DataSet()

        da.Fill(ds)

        Dim rpt As New ReportDocument()
        rpt.Load("C:\VetCon 2010\VetCon 2010\Report1.rdlc")

        'Asignarle al Reporte el DataSet
        rpt.SetDataSource(ds)

        'Asignarle al ReportViewer el ReportDocument
        ReportViewer1.Reportsource = rpt

Error 1 'reportsource' is not a member

Me falta alguna referencia? ya probe agregar toda las de vi de reportes y nada ;(