OO Base Formularfelder ansprechen mit makro

Hallo

Irgendwie bekomme ich es nicht hin mit dem Feldeintrag in das feld Namens „Pn“ einer geöffneten Form. Bei GetByName(„Pn“) kommt die Fehlermeldung „Basic Laufzeitfehler: Eigenschaft oder methode nicht gefunden:GetByName“

Sub Fill
dim oForm 'as object
oForm = ThisDatabaseDocument.FormDocuments.getByName(„frm_Product“)
oForm.GetByName(„Pn“).text = „Test5“
end sub

Kennt Ihr eine Lösung?
Danke für jeden Ratschlag
Grüsse
Sebastian