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
Set rs = Nothing
MsgBox Err.Number & " : " & Err.Description
the error in line 6
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.