Ich habe jetzt nochmal daran gesessen und dabei folgendes zu Stande gebracht ( funktioniert natürlich nicht >_>):

Private Sub command2_Click ( )
frage1=richtig.text ( ------->richtig, ist ein textfeld mit dem datafield richtig, also wird dort immer die nummer der richtigen antwort angezeigt)
for i= 1 to 4
if i=frage1 then
A=unvisible
B=unvisible
C=unvisible
D=unvisible
frage1=visible
frage2=randomize 1to 4
frage2=visible
end if
next i

End Sub

Ist natürlich totaler Müll, aber mehr habe ich nicht zu stande gebracht.
Ich warte ja immer noch hoffend auf eure Hilfe, denn morgen wird es shcon zu spät sein.....