Visual Basic - ayuda con recordset

hola amigos, lo que necesito hacer es posicionarme en el ultimo registro de una tabla y asignarle ese valor a una variable, tengo una tabla que se llama ventas y el campo clave es idventa, el ultimo valor que este en idventa se lo quiero asignar a una variable, o sino tamben lo podria poner en una caja de texto, alguien me sabria decir como???
ya probe haciendo algo asi

set rs = db.execute (" select idventa from ventas")
rs.movelast
dim a as integer
a = rs!idventa

pero no funciona ,
gracias

A ver si esto te vale de algo:

Dim RS as New Adodb.Recordset
Dim a as integer

RS.Open "SELECT IdVenta FROM Ventas", bd.connection
RS.Movelast
a=RS("IdVenta")

No estoy seguro de que bd.connection te valga, ahi tienes que poner la cadena de conexión con tu base de datos.

Suerte

no me parece que este mal la instruccion que haces, es raro que no funcione, te fijaste si idventa es integer tambien ???
suerte