Visual Basic - A. U. X. I. L. I. O COMO HAGO ESTE SELECT COUNT

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.

La sentencia sql debe ser :

Select Max(Var1) from ... para saber el valor máximo de este campo
Select Count(Var1) from ... para saber cuantos registros hay de este campo introducidos con algún valor

suerte