Visual Basic - COMO SE CUAL ES EL ULTIMO VALOR EN UNA TABLA?????

HOLA EL PROBLEMA QUE TENGO ES QUE QUIERO LEER EL ULTIMO VALOR DE UNA TABLA, EJEMPLO
TENGO UNA TABLA1 LA CUAL TIENE UNA VARIABLE VAR1 ESTA VAR1 TIENE NUMEROS DE FOLIO, YO QUIERO LEER EL ULTIMO FOLIO PARA QUE CUANDO SE AGREGE UN NUEVO FOLIO ESTE TOMO EL SIGUIENTE VALOR AL ULTIMO.
EN ESTE CASO SI EL FOLIO VA EN EL 7 EL NUEVO TOMARA
7+1=8.

LO HICE CON UN COMPONENTE ADODC1 EL CUAL APUNTA A ALA TABLA. Y SE LO ASIGNE A UNA VARIABLE.

DIM X%
X=ADODC1.RECORDSET.RECORDCOUNT Y ESTE ME TRAE EL

NUMERO DE REGISTROS DE LA TABLA. OSEA SI HAY 100 REGISTROS ME PONE UN 100 EN LA VARIABLE X.
PERO EN LA TABLA NO TODOS LOS FOLIO SON CONSECUTIVOS. POR LO QUE QUIERO LEER EL ULTIMO VALOR DE LA TABLA EN LA VARIABLE1.

HICE ESTO PERO NO FUNCIONA.


'hacemos una conexion ADO hacia la base central para obtener datos
Set Conexion = CreateObject("ADODB.Connection")
Set tabla = CreateObject("ADODB.recordset")
Conexion.Open ("DSN=central;UID=central;PWD=central")
'datacombo1 fue llenado con un adodc1
temp = "Select COUNT(*) FROM TABLA"
tabla.Open temp, Conexion
If tabla.EOF = False Then
'capturamos los datos segun el SELECT
X = tabla!VAR1

EN X SE GUARDA EL PRIMER VALOR Y NO EL ULTIMO.

Prueba poner lo siguiente:

tabla.MoveLast
antes de
X = ....

Saludos desde Lima

NO FUNCIONO

LO ENCONTRE EN MSDN.
SALUDOS

Sub CountOrders()
Dim dbs As Database, rst As Recordset, strSQL AS String
Set dbs = CurrentDb
strSQL = "SELECT ShipCity, Count(*) _
AS CountOfOrders FROM Orders " _
& "GROUP BY ShipCity;"
Set rst = dbs.OpenRecordset(strSQL)
rst.MoveLast
Debug.Print rst.RecordCount
Set dbs = Nothing
End Sub