A family of Microsoft relational database management systems designed for ease of use.
Ok, are you sure you have a control named Text25?
Try
DoCmd.OpenReport "CODE Q & J CREDITS Subreport", acViewPreview, , "[CustNo]=" & Me.Text25
Try after the & type in Me. and then selecting Text25 from the list that pops up. Also makse sure you aren't using curly quotes instead of the straight quotes. I'm also wondering if the ampersand in your report name is screwing things up. You should never use spaces and special characters in object names. You can also try renaming the report to
srptCode_QandJ_Credits
That would make the code:
DoCmd.OpenReport "srptCode_QandJ_Credits", acViewPreview, , "[CustNo]=" & Me.Text25