Visual Basic - ayudenme con este error !!urge

se trata de una consulta en sql para obtener el valor maximo de un campo pero me marca error de que el elemento no existe en la coleccion y no se como resolverlo, ayudenme

'obtiene el ultimo número de folio para incrementarlo
Data1.RecordSource = "resguardo"
Data1.Refresh
Data1.Recordset.MoveLast
intfolio = Data1.Recordset("folio")

' obtiene el valor maximo de progresivo**aqui esta el error**
Data1.RecordSource = "SELECT max(resguardo.progresivo) FROM RESGUARDO "
Data1.Refresh
intprogresivo = Data1.Recordset("progresivo")

El problema se encuentra en que:
"SELECT max(resguardo.progresivo) FROM RESGUARDO "
No recupera la columna progresivo, por lo que despues
intprogresivo = Data1.Recordset("progresivo")
No encuentra dicha columna, tienes dos posibilidades:
i) cambiar
intprogresivo = Data1.Recordset("progresivo") por:
intprogresivo = Data1.Recordset(1)
ii) cambiar
"SELECT max(resguardo.progresivo) FROM RESGUARDO " por
"SELECT max(resguardo.progresivo) AS MaxProgresivo FROM RESGUARDO "
y intprogresivo = Data1.Recordset("progresivo") por:
intprogresivo = Data1.Recordset("MaxProgresivo ")