Try
Dim rpt As New ArchivedByCriteria()
Dim frm As New ReportViewer()
rpt.RecordSelectionFormula = " {Archived.Completed} = Yes AND
{Archived.Doctor} = " & cboDoctor.Text & " AND
{Archived.Dates} >= Date(" & dtpFrom.Value.ToShortDateString & ") AND
{Archived.Dates} <= Date(" & dtpTo.Value.ToShortDateString & ") "
With frm
.Text = "Archived Appointments by Criteria"
.CrystalReportViewer1.ReportSource = rpt
.ShowDialog(Me)
End With
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try