Visual Basic - Identificar el último registro de recorset

Que tal amigos,
Mi consulta es la siguiente, tengo una base de datos acces conectada con ADO a un programita que estoy haciendo, ahora bien en un módulo he creado un sub

Sub Paciente()
With RsPaciente
If .State = 1 Then Close
.Open "select * from PACIENTE", base, adOpenStatic, adLockOptimistic
End With

End Sub

De esta forma en el evento load del formulario lo único que debo hacer es colocar "Paciente" para que me traiga mi recordset....
Ahora mi pregunta es la siguiente... mi recordset es una tabla con varios campos y yo desearía saber el valor mayor de uno de ellos más precisamente de un campo que se llama NumHisto, y esto para que cuando quiera crear uno nuevo sepa cual es el número que le corresponde, aclaro que el campo no es autonumérico.

Gracias!!!!

Mariel.

Hola bueno mira es sencillo, debes cambar tu consulta por esto:
Sub Paciente()
With RsPaciente
If .State = 1 Then Close
.Open "select max(NumHisto) from PACIENTE", base, adOpenStatic, adLockOptimistic
End With

End Sub

espero te sirva.