Dim A As New CRAXDDRT.Application
        Dim R As New CRAXDDRT.Report

        R = A.OpenReport("c:\1.rpt", 1)

        Dim d1 As Date = CDate("20.12.2013")
        Dim d2 As Date = CDate("25.12.2013")

        R.ParameterFields(1).AddCurrentValue(d1)
        R.ParameterFields(2).AddCurrentValue(d2)

        CrystalReportViewer1.ReportSource = R

Ссылка на объект не указывает на экземпляр объекта.