immagini random da access

[mexican]

strsql = "SELECT Max(id_img) as id FROM Immagini"
set rs = conn.Execute(strsql)
'rs.open strsql, conn,3,3
If Not rs.Eof Then
MaxId = rs("id")
Else
MaxId = 0
End If
Rs.Close : Set rs = Nothing

Randomize
RandomNumber = Cint(Rnd * MaxId)

strsql = "SELECT TOP 1 * FROM Immagini WHERE id_img >= " & RandomNumber
set rs = conn.Execute(strsql)
If Not rs.Eof Then
immagine=rs("file_img")
Else
immagine="Nessun immagine da visualizzare"
End If

Grazie mille dell'aiuto :-) a disposizione