Queries :: Display Last Record On A Report?

What I am trying to do is have the user click a button to open a report based on the current specification they are updating. Now for each specification there are multiple revisions so i added a 'revision history' table. When the user prints the specification, I only want the latest revision number, date, and rev descr to show. I tried using the following:

Private Sub Report_Load()
Dim db As Database
Dim Rev As Recordset
Set db = CurrentDb()
Set Rev = db.OpenRecordset("SELECT tblRevisionHistory.revnum, tblRevisionHistory.revdate, tblRevisionHistory.revision FROM tblRevisionHistory;")
Rev.MoveLast
Me.Text23 = Rev.Fields("revnum")
Me.Text26 = Rev.Fields("revdate")
Me.Text28 = Rev.Fields("revision")
End Sub

The above only showed me the last record in the table regardless of the specification number filter.