path1 = Dir(App.Path & "\dat.mdb")      '检测文件是否存在
    If path1 = "" Then
       Text1.Text = "数据库dat.mdb不存在，请先建立数据库~！"
       Exit Sub
    End If
    Dim cat As New ADOX.Catalog  '不用cat用另外一个名字也可以
    Dim pstr As String
    Dim tb1 As New Table
    pstr = "Provider=Microsoft.Jet.OLEDB.4.0;"   '不能把这里的4.0改为3.51
    pstr = pstr & "Data Source=" & App.Path & "\dat.mdb"
    pstr = pstr & ";Jet OLEDB:Database Password=123"
    cat.ActiveConnection = pstr
    tb1.Name = "学生信息"  '表的名称
    tb1.Columns.Append "姓名", adVarWChar, 20  '表的第一个字段
    tb1.Columns.Append "年龄", adInteger    '表的第二个字段
    tb1.Columns.Append "性别", adVarWChar, 2     '表的第三个字段
    tb1.Columns.Append "出生年月", adDate     '表的第四个字段
    cat.Tables.Append tb1    '建立数据表

 

 代码数据类型

自动编号用：adNumeric，备注用adLongVarWChar
以下是部分说明：
adBigInt  8   字节带符号的整数   (DBTYPE_I8).  
    adBinary二进制值   (DBTYPE_BYTES).  
    adBoolean      布尔型值   (DBTYPE_BOOL).  
    adByRef  与其他类型一起加入逻辑   OR   以指示该数据是其他类型数
据的指针   (DBTYPE_BYREF).  
    adBSTR  以空结尾的字符串   (Unicode)   (DBTYPE_BSTR).  
    adChar    字符串值   (DBTYPE_STR).  
    adCurrency     货币值   (DBTYPE_CY).货币数字的小数点位置固定、小数
点右侧有四位数字.该值保存为   8   字节范围为10,000   的带符
号整型值.  
    adDate    日期值   (DBTYPE_DATE).日期按双精度型数值来保存,   数
字全部表示从   1899   年   12   月   30   开始的日期数.小数部分是
一天当中的片段时间.  
    adDBDate       日期值   (yyyymmdd)   (DBTYPE_DBDATE).  
    adDBTime      时间值   (hhmmss)   (DBTYPE_DBTIME).  
    adDBTimeStamp    时间戳   (yyyymmddhhmmss   加   10   亿分之一的小数)(DBTYPE_DBTIMESTAMP).  
    adDecimal      具有固定精度和范围的精确数字值   (DBTYPE_DECIMAL).  
    adDouble双精度浮点值   (DBTYPE_R8).  
    adEmpty未指定值   (DBTYPE_EMPTY).  
    adError   32   -   位错误代码   (DBTYPE_ERROR).  
    adGUID  全局唯一的标识符   (GUID)   (DBTYPE_GUID).  
    adIDispatch    OLE   对象上   Idispatch   接口的指针   (DBTYPE_IDISPATCH).  
    adInteger4   字节的带符号整型   (DBTYPE_I4).  
    adIUnknown   OLE   对象上   IUnknown   接口的指针   (DBTYPE_IUNKNOWN).
    adLongVarBinary   长二进制值.  
    adLongVarChar      长字符串值.  
    adLongVarWChar   以空结尾的长字符串值.  
    adNumeric      具有固定精度和范围的精确数字值   (DBTYPE_NUMERIC).  
    adSingle  单精度浮点值   (DBTYPE_R4).  
    adSmallInt      2   字节带符号整型   (DBTYPE_I2).  
    adTinyInt       1   字节带符号整型   (DBTYPE_I1).  
    adUnsignedBigInt   8   字节不带符号整型   (DBTYPE_UI8).  
    adUnsignedInt4   字节不带符号整型   (DBTYPE_UI4).  
    adUnsignedSmallInt   2   字节不带符号整型   (DBTYPE_UI2).  
    adUnsignedTinyInt   1   字节不带符号整型   (DBTYPE_UI1).  
    adUserDefined       用户定义的变量   (DBTYPE_UDT).  
    adVarBinary    二进制值.   
    adVarChar      字符串值.  
    adVariant自动变体型   (DBTYPE_VARIANT).  
    adVector  与其他类型一起加入逻辑   OR   中,   指示数据是   DBVECTOR  
结构(由   OLE   DB   定义).该结构含有元素的计数和其他类型  
(DBTYPE_VECTOR)   数据的指针.  
    adVarWChar   以空结尾的   Unicode   字符串.  
    adWChar