vb 随机数

我是随机数据库中的值以id的开始为头 id的结束为结尾  可是有时候删除一条记录的话然后再随到这条记录时就会报错
怎么写随机就不会随机到已经删除的了  错误代码如下
            rc.MoveFirst
            two = rc("ID")

            rc.MoveLast
            no = rc("ID")
      Randomize
            thirdcode = Int(Rnd() * (Abs(no - two + 1)) + two) 请各位帮个忙谢谢