Option Explicit
Public oDB As DAO.Database
Public oRs As DAO.Recordset
Dim nPos As Long
 
Private Sub Form_Load()
Call Zufall
End Sub
 
Private Sub Command1_Click()
 
  If Text1.Text = oRs.Fields("Deutsch").Value Then
 
    MsgBox "Korrekt!"
 
   Else
 
    MsgBox "Falsch! Richtig wäre: " & oRs.Fields("Deutsch")
 
  End If
 
End Sub
 
Function Zufall()
Randomize Timer
Label1.Caption = ""
Text1.Text = ""
 
Set oDB = DBEngine.OpenDatabase(App.Path + "\vokabeln.mdb")
Set oRs = oDB.OpenRecordset("SELECT * FROM Kapitel_14")
 
nPos = Int(oRs.RecordCount * Rnd) + 1
 
oRs.AbsolutePosition = nPos - 1
 
Label1.Caption = "Zu übersetzendes Wort: " & oRs.Fields("Latein").Value
 
End Function
 
Private Sub Command2_Click()
Call Zufall
End Sub