A family of Microsoft relational database management systems designed for ease of use.
Alright lets start this from scratch. Create a new unbound form and put a text box and a button on it. Name the textbox txtCust and button cmdCredits.
Behind the button put
DoCmd.OpenReport "Credits",acViewPreview,,"[QNCLI] = " & Me.txtCust
See if that works.