[de-users] LO Base 4.0 - Datumfeld mit aktuellem Datum via Basic füllen

Hallo Liste,
ich würde gern in einem Base-Formular ein Datumsfeldmit dem aktuellen 
Datum füllen und nutze dazu folgenden Code:

Sub Datum_schreiben()
Dim oCtrl as Object
Dim oDoc as Object
Dim oForm as Object
    oDoc = StarDesktop.CurrentComponent
    oForm = oDoc.Drawpage.Forms("frm_Eingabe")
    oCtrl = oForm.GetByName("txt_Datum_aktuell")
    oCtrl.BoundField.updateDate(CdateToIso(Date))
end Sub

Leider bekomme ich eine sehr allgemeine Fehlermeldung: 
"Basic-Laufzeitfehler: Objektvariable nicht belegt".
Kann mir jemand weiter helfen?
Vielen Dank.
--
signatur *Ulrich Kleinknecht*
Waldstr. 9
65529 Waldems
T: 06087 758
F: 06087 919877
ulrich@Kleinknecht.eu

--
Informationen zum Abmelden: E-Mail an users+help@de.libreoffice.org
Probleme? http://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: http://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: http://listarchives.libreoffice.org/de/users/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert