Private Sub Command1_Click()
If Text2.Text = Text5.Text Or Text2.Text = Text6.Text Then 'Feld wird grün,
Text2.BackColor = &HFF00&                                  'wenn Texte stimmen
Else
Text2.BackColor = &HFF&                                    'Feld wird rot wenn 
' nicht
Command3.Visible = True                                    'und Button 3 
' sichtbar
End If
If Text3.Text = Text6.Text Or Text3.Text = Text5.Text Then 'gleich, nur anderes 
' Feld
Text3.BackColor = &HFF00&
Else
Text3.BackColor = &HFF&
Command3.Visible = True
End If
If Text4.Text = Text8.Text Then                             'gleich,anderes Feld
Text4.BackColor = &HFF00&
Else
Text4.BackColor = &HFF&
Command3.Visible = True
End If
End Sub
Private Sub Command2_Click()
Text2.SetFocus                                              'Focus wird auf das 
' Feld2 gesetzt
Command3.Visible = False                                    'Command wird 
' unsichtbar
Text5.Visible = False                                       'Felder werden 
' unsichtbar gemacht
Text6.Visible = False
Text7.Visible = False
Text8.Visible = False
Text2.Text = ""                                             'Inhalt der Felder 
' wird gelöscht
Text3.Text = ""
Text4.Text = ""
Text2.BackColor = &HFFFFFF                                  'Hintergrund wird 
' wieder weiss
Text3.BackColor = &HFFFFFF
Text4.BackColor = &HFFFFFF
If Data1.Recordset.EOF = True Then                          'Abfangen des 
' Fehlers bei DB-Ende
Data1.Recordset.MoveFirst
Else
Randomize
x = Int(Rnd * 3 + 1)
If Data1.Recordset.PercentPosition + x = Data1.Recordset.RecordCount Then
Do
Text9.Text = 1
Data1.Recordset.MoveNext
Loop Until Text9.Text = "0"
Else
Do
Text9.Text = 1
Data1.Recordset.Move (x) <-hier entsteht der Fehler
Loop Until Text9.Text = "0"
End If
End If
End Sub
Private Sub Command3_Click()
Text5.Visible = True
Text6.Visible = True
Text8.Visible = True
End Sub
Private Sub Command4_Click()
Data1.Recordset.MoveFirst
For x = 1 To Data1.Recordset.RecordCount
Text9.Text = 0
Data1.Recordset.MoveNext
Next
End Sub