Retrieving Last Record In A Table

Can someone tell me why the below VBA code is not retrieving the last record in a table. Thanks ! ! !



__________________________________________________ _______________



Dim db As Database

Dim rs As Recordset

Dim i As Integer



Set db = CurrentDb

Set rs = db.OpenRecordset("Table_Check_Number_List")



rs.MoveLast

Me.CheckNumberBox = rs.Fields("CheckNumber")



rs.Close

Set rs = Nothing

db.Close

Retrieving Last Record In A Table