Allow Access to set a field to "allow empty string"

Set con = Server.createObject ("AdoDb.Connection")

Con -.open "provider = microsoft.jet.Oledb.4.0; data source =" & server.mappath ("db1.mdb")

Set adox = server.createObject ("adox.catalog")

Set adox.activeConnection = con

Set tbl = adox.tables ("aa")

Set col = tbl.columns ("gg")

Col.properties ("Jet OLEDB: Allow Zero Length") = true 'allows empty strings

Set col = Nothing

Set TBL = Nothing

Set adox = Nothing