The simplest way is to use a Form, not a datasheet, and put a CommandButton
on the Form... use the unique ID of the currently selected record to create
the WHERE clause without the WHERE that is needed for the WhereCondition
argument of DoCmd.OpenReport... something like
Dim strWhere as String
strWhere = "[SerialNumber] = " & Me!txtSerialNumber
DoCmd.OpenReport "rptSomeRep",,,strWhere