I'm using this code on a button to find random records in my database but it doesn't find random records - it goes through the same sequence of records.
Private Sub Random_record_Click()
DoCmd.GoToRecord , , acGoTo, Int(Rnd() * Me.RecordsetClone.RecordCount) + 1
End Sub