RE:pasar un dato a la etiqueta en el rpt
'Supongamos
Dim strReportPath As String = "C:\Sample.rpt"
Dim rptDocument As New CrystalDecisions.CrystalReports.Engine.ReportDocument
rptDocument.Load(strReportPath)
rptDocument.SetDataSource(ds)
rptDocument.FileName = "C:\Sample.rpt"
'Esto te permite cambiar el texto en ejecucion de ese textbox 'si era Titulo el texto ahora sera Nuevo Titulo..
Dim etiq As CrystalDecisions.CrystalReports.Engine.TextObject
etiq = rptDocument.ReportDefinition.Sections("Section1").ReportObjects("txtTitulo")
etiq.Text = "Nuevo titulo"
rptViewer.ReportSource = rptDocument