Random udvalg fra database

Jeg har denne kode som skal vælge en tilfeldig database post, og vise den :
SUB Random
    set rs=server.CreateObject("adodb.recordset")
        strSQL = "SELECT COUNT(*) FROM Jokes"
    RS.Open strSQL, con, 3, 1
    recCount = rs(0) 'rs.RecordCount
    randomize
    rec = int(rnd * recCount)
    'Flyt til den valgte record
    rs.Move rec   
    joketype = rs("tabel")
    jokenr = rs("jokenr")
End SUB

Problemet her er at den tager kun antallet af poster, og hvordan kan jeg så få den til at finde oplysningerne om den valgte joke?
Dette virkede fint med min gamle database som var i Access, men ikke i den nye som er MySQL?
Tabellerne er fuldstændig ens i begge databaser?