Option Explicit 
 
'######################## Variablendeklaration 
' ######################################## 
 
Dim Datenbank As Database 
Dim Datensatz As Recordset 
 
'########### Buttons - Entscheidung ob Auswahl wahr oder falsch 
' ####################### 
 
Private Sub Command_Click(Index As Integer) 
 
If Index = Datensatz.Fields("Antwort").Value Then 
'Richtig 
MsgBox "Die Antwort ist richtig" 
 
Else 
'Falsch 
MsgBox "Die Antwort ist leider falsch, probiere es doch nochmal." 
 
End If 
 
'zum nächsten Recordset springen 
 
If Not Datensatz.EOF Then 
Datensatz.MoveNext 
 
Else 
'alle Fragen wurden bearbeitet 
MsgBox "Du hast alle Fragen bearbeitet, das Quiz ist nun vorbei!" 
 
End If 
End Sub 
 
 
 
Private Sub Form_Load() 
 
'#################### Datenbankpfad zuweisen und Datenbank öffnen 
' ##################### 
 
Set Datenbank = DBEngine.Workspaces(0).OpenDatabase("F:\Eigene" & _
  "Dateien\Quiz\quizdatenbank.mdb") 
Set Datensatz = Datenbank.OpenRecordset("datenbank", dbOpenDynaset) 
Datensatz.MoveFirst 
 
End Sub