Ændre DatabaseName i en data-box til det samme som en Textbox

Hej igen.
Jeg vil gerne have at min data-box's DatabaseName (som er hvor databasen ligger) skal skrives i en textbox, så man kan ændre stien til databasen der skal hentes. Jeg har prøvet dette som virker mest logisk for mig:

privat sub command1_click()
dim variabel as string
variabel = text1.text
data1.databasename = variabel


(Databoxen skal hente den database der indtastes i text1 når man trykker på command1-knappen)
håber virkelig i kan hjælpe. har siddet rimelig længe uden at kunne finde ud af det! :(
//simonhb