run time error -Application-defined or object-defined error

on this statement in VB Set cr = New crMHSaleBill