retornar ultimo id da coluna do banco de dados na textbox automaticnete ao abrir o formulario

[Fabio moraes]

boa tarde, sou novo por aqui e tambem no vbaexcel

estou com uma duvida

estou tentando fazer que ao inicializar o userform  uma textbox exiba o ultimo id de uma coluna do meu banco de dados access

porem sem sucesso, sempre só exibe o numero 1 alguém consegue me dar uma luz??

segue meu codigo

--------------------------------------

ConexaoBD

SQL = "SELECT top 1 * from TB_CATEGORIA WHERE CODIGO"
Rs.CursorType = adOpenKeyset
Rs.Open SQL, db
'Rs.MoveLast
ULTIMOREG = Rs.AbsolutePosition

id_pedido = ULTIMOREG

fechaRS

---------------------------------------------------------------------------