He logrado hacer esto en el boton para tomar un registro aleatorio ...
Código:
Randomize
aa = Int((10 * Rnd) + 1)
TXTrandom.Text = aa
f = " SELECT * FROM words WHERE 'id = TXTrandom.text'"
Data2.RecordSource = f
Data2.Refresh
pero me sustituye el registro que esta en la columna 'word' y no me selecciona aleatoriamente un registro dependiendo la id ...