<code>  <font color=#000099>Dim</font> sZufall() <font color=#000099>As</font> _
  <font color=#000099>String</font>
  <font color=#000099>Dim</font> DB <font color=#000099>As</font> Database
  <font color=#000099>Dim</font> Rs <font color=#000099>As</font> Recordset
  <font color=#000099>Dim</font> lCount <font color=#000099>As</font> <font _
    color=#000099>Long</font>
 
  <font color=green>' Zufallszahlen aus TextBox extrahieren</font>
  sZufall = Split(Text1.Text, vbCrLf)
 
  <font color=green>' Datenbank öffen</font>
  <font color=#000099>Set</font> DB = DBEngine.OpenDatabase(App.Path & _
    "TEXTE.MDB", _
    <font color=#000099>False</font>, <font color=#000099>False</font>)
 
  <font color=green>' Recordset (Tabelle) öffnen</font>
  <font color=#000099>Set</font> Rs = DB.OpenRecordset("Fragen")
 
  <font color=green>' jedem Datensatz eine Zufallszahl zuordnen</font>
  <font color=#000099>If</font> Rs.RecordCount > 0 <font _
    color=#000099>Then</font>
    lCount = 0
    <font color=#000099>While</font> <font color=#000099>Not</font> Rs.EOF
      Rs.Edit
      Rs("Zufall") = sZufall(lCount)
      Rs.Update
      Rs.MoveNext
      lCount = lCount + 1
    <font color=#000099>Wend</font>
  <font color=#000099>End</font> <font color=#000099>If</font>
 
  <font color=green>' alles wieder schliessen</font>
  Rs.<font color=#000099>Close</font>
  DB.<font color=#000099>Close</font>
  <font color=#000099>Set</font> DB = <font color=#000099>Nothing</font></code>