Hi,
I thing you are code as missing concatenation operator for passing the value in recordselectionforula. Try this
CRTOutPatientReport1.RecordSelectionFormula ="{OutPatient.PatientID}='" & OutPatient.ComboBox1.Text.ToString() & "'"
I hope it will solve your problem and let me know if you have still same issue