查询access表中指定字段最后一笔

我在Excel中的代码如下，帮忙看一下，谢谢。

sub test()
    Dim DB1 As Database: Set DB1 = OpenDatabase(ThisWorkbook & "\"AAA.mdb")    
    Dim RS1 As Recordset: Set RS1 = DB1.OpenRecordset(Name:="Info", Type:=dbOpenDynaset)
    
    a = DCount("编码", "Info") '变量表中记录的笔数
    Dim b as String
        
        '------------------------------------------------
	'此处请帮忙添加 msgbox，显示字段“编码”的最后一笔内容
        '------------------------------------------------
end sub