rastgele tek bir kayıt seçeceksen

kayit = kdGenel.RecordCount
Randomize
sec = Int((kayit * Rnd) + 0)
kdGenel.Move(sec)