VB中怎样用程序语言实现设立数据库表里字段的默认值（即当这个字段没有赋值时），所给的值？）

要用程序语言实现
希望详细点！！
谢谢
我的程序
Dim MyDatabase As Database
Dim MyTable As TableDef
Dim MyField As Field

Set MyDatabase = CreateDatabase(PathName + "\" & dataName & ".mdb", dbLangGeneral) '建立数据库
Set MyTable = MyDatabase.CreateTableDef(tableName) '建立数据表

Set MyField = MyTable.CreateField("学号", dbInteger, 4) '存在的问题是怎样将其设为主键
MyTable.Fields.Append MyField
Set MyField = MyTable.CreateField("姓名", dbText, 10)
MyTable.Fields.Append MyField
Set MyField = MyTable.CreateField("政治态度", dbSingle, 4)
MyTable.Fields.Append MyField
Set MyField = MyTable.CreateField("集体观念", dbSingle, 4)
MyTable.Fields.Append MyField
Set MyField = MyTable.CreateField("学习态度", dbSingle, 4)
我的数据表里的字段有些是按情况输入的，所有有些时候，有些字段就会为null，但是在对其中的数据操作时，又要这个字段，所以我希望给它们一个默认值。

VB中如何实现求导数？？？ 请问怎样用VB实现程序不在任务管理器中显示？ 请问在vb.net中如何实现随机取数?? 怎样用 VB 实现文件关联？ 怎样用VB实现软件注册? 关于VB实现水仙花数 如何用IIF函数实现判断三个数的最大数在VB中 在VB中怎样用bcp实现把一个csv文件中的内容读到一个表中？ 怎样学好VB程序语言???????? vb中实现键盘输入