Visual Basic - Duda con AutoIncrement

Holas :

Tengo la siguiente duda , tengo en una tabla un campo de tipo autonumerico y quiero que cuando se abra el form salga en un textbox el ultimo ID.

Sql = "Select MAX(ID) as variable From Tabla "
Set Rst = Cn.Execute(Sql)

como recojo "variable"

la solucion tonta que tengo es

Private Sub Form_Load()
cn.open(DSN=Base_de_Datos")
Sql = "Select ID From Tabla "
Set Rst = Cn.Execute(Sql)
While Not Rst.EOF
Text1.Text = Rst!ID
Rst.MoveNext
Wend
End Sub

espero que se haya entendido


DAO 3.51

'Porque no haces esto, primero ordenas la instruccion SQL:
Sql="Select ID From Tabla order by ID"
'Luego vas al ultimo registro, siempre preguntando si hay registros:
If Not Rs.Eof then Rst.MoveLast
'Y luego envias el campo al TexBox
Text1.Text = Rst!ID
Espero te sirva