Parcours d'une table en ecriture VBA access

Bonjour,
tout le monde je souhaiterais parcourir les champs d'un table (ex: ma_table) un par un; et mettre un nombre aléatoire (completement aléatoire !) généré par une fonction publique irand() qui marche, dans une colonne qui s'appelle "aleat" c'est la colonne 30.
J'ai écrit ça mais ca ne me fait rien du tout au fait je ne sais pas du tout parcourir une table en écriture, à noter que je suis un rookie en vba.

'initialisation de mes champs
Dim db As DAO.Database
Dim myrst As DAO.Recordset
Set db = CurrentDb

Dim req As String
req = "SELECT * FROM [ma_table] "
Set myrst = db.OpenRecordset(req)

'je me place qu début
DoCmd.GoToRecord , , acFirst

'boucle
Do While Not myrst.EOF

myrst.Edit
'myrst.Fields("aleat").Value = irand() <= marche pas
'myrst.Fields(29).Value = irand() <= marche pas
'myrst![aleat] = irand() <= marche pas
'myrst.Fields("aleat") = irand() <= marche pas
myrst.MoveNext

Loop

Pourriez-vous SVP m'aider ça fait depuis 2 jour que je cogite la-dessus, je suis à cours d'idée, en plus je ne sais pas ce qui ne vas pas
Merci d'avance