' Esegue la stampa anteprima

        Dim Stampa As New ReportDocument
        Dim Tabella As Table

        Stampa.Load("TuoReport.rpt")

        For Each Tabella In Stampa.Database.Tables
            Tabella.SetDataSource(TuoDataSet)  ' <== TuoDataSet è il dataset da te precedentemente creato
        Next Tabella

        TuoReportViewer.ReportSource = Stampa
        TuoReportViewer.Show()