Private Sub Command1_Click()
Dim mycat As New ADOX.Catalog
Dim mytable As New ADOX.Table
'
mycat.ActiveConnection = "Provider=MicroSoft.Jet.OLEDB.4.0;Data Source=e:\wbzx.MDB"
Set mytable = mycat.Tables("wbx")
MsgBox mytable.Columns("word").Properties("Nullable").Value '是否允许为Null
Private Sub Command1_Click()
Dim mycat As New ADOX.Catalog
Dim mytable As New ADOX.Table
'
mycat.ActiveConnection = "Provider=MicroSoft.Jet.OLEDB.4.0;Data Source=e:\wbzx.MDB"
Set mytable = mycat.Tables("wbx")
MsgBox mytable.Columns("word").Properties("Jet OLEDB:Allow Zero Length").Value