Libreoffice Base - jeg kan ikke få en macro til at skrive sit resultat i en tekstbox

Hej alle.

Jeg har lavet mig en lille testdatabase som start til et større projekt jeg skal igang med ude på min arbejdsplads.
Her tester jeg nogle ting af inden det går løs.

Jeg har lavet mig en formular med navn, adresse, postnummer, land og så et felt til adgangskode samt en knap der hedder "generer kode" Selve databasedelen har jeg godt styr på efter mange års arbejde med Access så det var nemt at få alt
dette til at virke.

Men det er så meningen at den skal genere en tilfældig adgangskode og skrive denne ind i adgangskodefeltet når man trykker på denne knap sådan at denne vises på formularen og så også bliver gemt.

Jeg har fået styr på selve kodegeneratoren, d.v.s. den skal finpudses lidt til endelig produktion men den fungerer nu og viser en fin beskedboks med den genererede adgangskode. Problemet er at jeg ikke kan få den til at skrive denne tekst til adgangskodefeltet som jeg har kaldt adgangsk

Følgende er min kode



Sub Main
dim o$ as string
dim k$ as string
dim a as string
dim x as integer
k$="abcdefghijklmnopqrstuvwxyzæøåABCDEFGHIJKLMNOPQRSTUVWXYZÆØÅ1234567890-"

for x = 0 to 8
a=a+mid(k$,(rnd*69)+1,1)
next x
msgbox a$
[adgangsk]=a$

End Sub


Hvordan får jeg A$ til at blive skrevet i adgangsk det skal siges at der er tale om en standardformular, ikke en dialogboks.