DefaultValue auslesen/setzen Access-Datenbank

[DerKiLLa]

Hallo,

ich versuche den standardwert aus einer access-datenbank zu lesen und
ggf neu zu setzen
also falls der standard wert anders als "" (bzw NULL) ist soll er auf
"" (bzw NULL) gesetzt werden.

Set Jetdb = CreateWorkspace("", "Admin", "", dbUseJet)
Set data1 = Jetdb.OpenDatabase(sdatenbankpfad + "\Test.mdb")

Set rstdb = data1.OpenRecordset("Select * from Tabelle1 where id =
" & txt_nummer)

If not rstdb.Fields("porto").DefaultValue = "" Then
rstdb.Fields("porto").DefaultValue = ""
End If

auslesen funktioniert richtig aber beim setzen bekomm ich die meldung

bei rstdb.Fields("porto").DefaultValue = "" -> Laufzeitfehler 3219 -
Unzulässige Operation
bei rstdb.Fields("porto").DefaultValue = NULL -> Laufzeitfehler 3421 -
Datentyp-Konvertierungsfehler

vielen dank schonmal für eure hilfe ;)

rstdb.Fields("porto").Properties("DefaultValue").Value funktioniert
auch nicht ;|