select case wissen
case "gut"
objcmd.CommandText=("update bio set note = 1 where fach = "datenbank")
case "gehtnoch"
objcmd.CommandText=("update bio set note = 1 where fach = "datenbank")
objcmd.Execute
bydey
select case wissen
case "gut"
objcmd.CommandText=("update bio set note = 1 where fach = "datenbank")
case "gehtnoch"
objcmd.CommandText=("update bio set note = 1 where fach = "datenbank")
objcmd.Execute
bydey