vb中往access创建新表，如何使表中字段的“必填字段”属性为“否“？

Question

通过如下方法在access中创建了一个新表，但是所的新表的“必填字段”属性均为“是“，如何使表中字段的“必填字段”属性为“否“？
     dim i as integer
    dim new cat as new adox.catalog
     newcat.activeconnection=连接字段
     newtable.name=txttablename.text     for i=0 to fieldlist.listcount-1 step 1
          newtable.columns.appengd fieldlist.list(i)
     next     newcat.tables.append newtable