myReport.Database.SetDataSource Rdetat
' LINK VIEWER TO REPORT
CRViewer.ReportSource = myReport
'SHOW REPORT
CRViewer.ViewReport
' ZOOM METHOD DOES NOT WORK WHILE
' Do While CRViewer.IsBusy
' DoEvents 'REPORT IS LOADING, SO WE MUST PAUSE
' Loop 'WHILE REPORT LOADS.
CRViewer.Zoom 1