Private Sub Cmd9_Click()
'On Error GoTo Error_Handler
Dim Report As New Blank_rShopDrawing
4 Set Report = New Blank_rShopDrawing
Report.RecordSelectionFormula = "false"
Form1.CRViewer1.ReportSource = Report
Form1.Show 1
Set rs = Nothing
 Exit Sub
MsgBox Err.Number & " : " & Err.Description
Resume Exit_Error_Handler
End Sub

the error in line 6 
anyhelp please 

what is the exact error message ?

Compile error - method or data member not found and the cursor waiting in line6: Form1.CRViewer1.ReportSource = Report

HibaPro, this is your 4th question about the exact same error but with a different object. Surely you must know by now how to solve this, we can not go through your (which I still suspect to be someone elses code) entire application with the same error.

Have a look at your previous threads these past 2 weeks and you will find the answer in there.