我是随机数据库中的值 以id的开始为头 id的结束为结尾  可是有时候删除一条记录的话 然后再随到这条记录时就会报错 
怎么写随机就不会随机到已经删除的了   错误代码如下 
            rc.MoveFirst
            two = rc("ID")
      
            rc.MoveLast
            no = rc("ID")
      Randomize
            thirdcode = Int(Rnd() * (Abs(no - two + 1)) + two)请各位帮个忙 谢谢