Olá !
Eu faço isto assim :
Em access :
--------------------------------------------------------------
Redordset.open "Select Top 1 Id From Tabela Order by Id desc"
msgbox Recordset("Id").value
----------------------------------------------------------------
Em MySQL
RecordSet.Open "Select Id From Tabela Order By Id desc limit 1"
msgbox Recordset("Id").value
RecordSet.Close
----------------------------------------------------------------
Sacou !!
