Visual Basic - COMO SUSTITUIR EL NUMERO MAXIMO?

HOLA
Como le puedo hacer con sql para sacar el numero maximo de una bd y compararlo con otro, pues pongo:
SQL3 = "SELECT MAX(puntos) from puntua
Set registro = conexion.Execute(SQL3)
y me marca error si luego quiero sacar le mayor asi
if registro!puntos>puntos2 then
marca error, como puedo acomodar la sintaxis para traerme el numero maximo?
Gracias

SQL3 = "SELECT Max(puntos) AS Maximo FROM puntua"

dim rcr as new ADOB.RECORDSET

set rcr = conexion.Execute(SQL3)

if rcr!Maximo ........................