قرعه کشی در اکسس

()Private Sub CmdClear_Click

""=  Me.lstData.RowSource 

End Sub

()Private Sub Form_Timer

 (  Me.txtDigitOne = CInt(Rnd() * 9

( Me.txtDigitTwo = CInt(Rnd() * 9

(   Me.txtDigitThree = CInt(Rnd() * 9

End Sub