Seleccionar el maximo registro

Carlos
25 de Enero del 2005
Hola! Como puedo guardar en una variable el maximo registro de una tabla de access a través de una consulta? El codigo que hago es este:

'PROCESO PARA CALCULAR EL MAXIMO ID
Set Base = OpenDatabase("MIBASE.mdb")
Set rstTabla = Base.OpenRecordset("Select max(ID) from MITABLA")

If rstTabla.RecordCount <> 0 Then
nId = rstTabla("ID")
Else
nId = ""
End If
Set rstTabla = Nothing
MsgBox nId
Base.Close

El error que me da es: 'No se encontro el elemento en esta coleccion' en la linea:
nId = rstTabla("ID"). Gracias!

mvallejos
25 de Enero del 2005
ID es el nombre del campo, pero la expresión
Max(ID) no tiene alias por ende no tiene nombre el campo resultante.
Cambia por esto

nId = rstTabla.Fields(0).Value

Saludos