'Die Datenbank Vokabeln ist erstellt, Spalten sind erstellt und sie
ist offen
Dim rs as Recordset
Dim Temp,SQL as String
 
Temp = "ball"
SQL = "SELECT * FROM Vokabeln WHERe Vokabel = '" & Temp &  "'"
Set rs = OpenRecordset(SQL)