Create Field in Access DB

[KieranSmith]

I am currenty using:

    Dim dbs As Database
    Dim f As Field

    Set dbs = OpenDatabase(App.Path & "\Database\SIS.mdb")
    Set f = dbs.TableDefs("USER").CreateField("Shipment_NextDate", dbDate, 10)

    dbs.TableDefs("USER").Fields.Append f
    dbs.Close
    Set dbs = Nothing

Error = Type Mismatch


Any ideas?