path1 = Dir(@H_502_3@App.Path & "\dat.mdb") '@H_502_3@@H_502_3@检测文件是否存在@H_502_3@
If path1 = "" Then
Text1.Text = "@H_502_3@@H_502_3@数据库@H_502_3@dat.mdb@H_502_3@@H_502_3@不存在，请先建立数据库@H_502_3@~@H_502_3@@H_502_3@！@H_502_3@"
Exit Sub
End If
Dim cat As New ADOX.Catalog '@H_502_3@@H_502_3@不用@H_502_3@cat@H_502_3@@H_502_3@用另外一个名字也可以@H_502_3@
Dim pstr As String
Dim tb1 As New Table
pstr = "Provider=Microsoft.Jet.OLEDB.4.0;" '@H_502_3@@H_502_3@不能把这里的@H_502_3@4.0@H_502_3@@H_502_3@改为@H_502_3@3.51
pstr = pstr & "Data Source=" & @H_502_3@App.Path & "\dat.mdb"
pstr = pstr & ";Jet OLEDB:Database Password=123"
cat.ActiveConnection = pstr
tb1.Name = "@H_502_3@@H_502_3@学生信息@H_502_3@" '@H_502_3@@H_502_3@表的名称@H_502_3@
tb1.Columns.Append "@H_502_3@@H_502_3@姓名@H_502_3@",adVarWChar,20 '@H_502_3@@H_502_3@表的第一个字段@H_502_3@
tb1.Columns.Append "@H_502_3@@H_502_3@年龄@H_502_3@",adInteger '@H_502_3@@H_502_3@表的第二个字段@H_502_3@
tb1.Columns.Append "@H_502_3@@H_502_3@性别@H_502_3@",2 '@H_502_3@@H_502_3@表的第三个字段@H_502_3@
tb1.Columns.Append "@H_502_3@@H_502_3@出生年月@H_502_3@",adDate '@H_502_3@@H_502_3@表的第四个字段@H_502_3@
cat.Tables.Append tb1 '@H_502_3@@H_502_3@建立数据表@H_502_3@
自动编号用：@H_502_3@adNumeric@H_502_3@@H_502_3@，备注用@H_502_3@adLongVarWChar
@H_502_3@@H_502_3@以下是部分说明：@H_502_3@
adBigInt 8 @H_502_3@@H_502_3@字节带符号的整数@H_502_3@ (DBTYPE_I8).
adBinary@H_502_3@@H_502_3@二进制值@H_502_3@ (DBTYPE_BYTES).
adBoolean @H_502_3@@H_502_3@布尔型值@H_502_3@ (DBTYPE_BOOL).
adByRef @H_502_3@@H_502_3@与其他类型一起加入逻辑@H_502_3@ OR @H_502_3@@H_502_3@以指示该数据是其他类型数@H_502_3@
@H_502_3@@H_502_3@据的指针@H_502_3@ (DBTYPE_BYREF).
adBSTR @H_502_3@@H_502_3@以空结尾的字符串@H_502_3@ (Unicode) (DBTYPE_BSTR).
adChar @H_502_3@@H_502_3@字符串值@H_502_3@ (DBTYPE_STR).
adCurrency @H_502_3@@H_502_3@货币值@H_502_3@ (DBTYPE_CY).@H_502_3@@H_502_3@货币数字的小数点位置固定、小数@H_502_3@
@H_502_3@@H_502_3@点右侧有四位数字@H_502_3@.@H_502_3@@H_502_3@该值保存为@H_502_3@ 8 @H_502_3@@H_502_3@字节范围为@H_502_3@10,000 @H_502_3@@H_502_3@的带符@H_502_3@
@H_502_3@@H_502_3@号整型值@H_502_3@.
adDate @H_502_3@@H_502_3@日期值@H_502_3@ (DBTYPE_DATE).@H_502_3@@H_502_3@日期按双精度型数值来保存@H_502_3@,@H_502_3@@H_502_3@数@H_502_3@
@H_502_3@@H_502_3@字全部表示从@H_502_3@ 1899 @H_502_3@@H_502_3@年@H_502_3@ 12 @H_502_3@@H_502_3@月@H_502_3@ 30 @H_502_3@@H_502_3@开始的日期数@H_502_3@.@H_502_3@@H_502_3@小数部分是@H_502_3@
@H_502_3@@H_502_3@一天当中的片段时间@H_502_3@.
adDBDate @H_502_3@@H_502_3@日期值@H_502_3@ (yyyymmdd) (DBTYPE_DBDATE).
adDBTime @H_502_3@@H_502_3@时间值@H_502_3@ (hhmmss) (DBTYPE_DBTIME).
adDBTimeStamp @H_502_3@@H_502_3@时间戳@H_502_3@ (yyyymmddhhmmss @H_502_3@@H_502_3@加@H_502_3@ 10 @H_502_3@@H_502_3@亿分之一的小数@H_502_3@)(DBTYPE_DBTIMESTAMP).
adDecimal @H_502_3@@H_502_3@具有固定精度和范围的精确数字值@H_502_3@ (DBTYPE_DECIMAL).
adDouble@H_502_3@@H_502_3@双精度浮点值@H_502_3@ (DBTYPE_R8).
adEmpty@H_502_3@@H_502_3@未指定值@H_502_3@ (DBTYPE_EMPTY).
adError 32 - @H_502_3@@H_502_3@位@H_502_3@错误代码 (DBTYPE_ERROR).
adGUID @H_502_3@@H_502_3@全局唯一的标识符@H_502_3@ (GUID) (DBTYPE_GUID).
adIDispatch OLE @H_502_3@@H_502_3@对象上@H_502_3@ Idispatch @H_502_3@@H_502_3@接口的指针@H_502_3@ (DBTYPE_IDISPATCH).
adInteger4 @H_502_3@@H_502_3@字节的带符号整型@H_502_3@ (DBTYPE_I4).
adIUnknown OLE @H_502_3@@H_502_3@对象上@H_502_3@ IUnknown @H_502_3@@H_502_3@接口的指针@H_502_3@ (DBTYPE_IUNKNOWN).
adLongVarBinary @H_502_3@@H_502_3@长二进制值@H_502_3@.
adLongVarChar @H_502_3@@H_502_3@长字符串值@H_502_3@.
adLongVarWChar @H_502_3@@H_502_3@以空结尾的长字符串值@H_502_3@.
adNumeric @H_502_3@@H_502_3@具有固定精度和范围的精确数字值@H_502_3@ (DBTYPE_NUMERIC).
adSingle @H_502_3@@H_502_3@单精度浮点值@H_502_3@ (DBTYPE_R4).
adSmallInt 2 @H_502_3@@H_502_3@字节带符号整型@H_502_3@ (DBTYPE_I2).
adTinyInt 1 @H_502_3@@H_502_3@字节带符号整型@H_502_3@ (DBTYPE_I1).
adUnsignedBigInt 8 @H_502_3@@H_502_3@字节不带符号整型@H_502_3@ (DBTYPE_UI8).
adUnsignedInt4 @H_502_3@@H_502_3@字节不带符号整型@H_502_3@ (DBTYPE_UI4).
adUnsignedSmallInt 2 @H_502_3@@H_502_3@字节不带符号整型@H_502_3@ (DBTYPE_UI2).
adUnsignedTinyInt 1 @H_502_3@@H_502_3@字节不带符号整型@H_502_3@ (DBTYPE_UI1).
adUserDefined @H_502_3@@H_502_3@用户定义的变量@H_502_3@ (DBTYPE_UDT).
adVarBinary @H_502_3@@H_502_3@二进制值@H_502_3@.
adVarChar @H_502_3@@H_502_3@字符串值@H_502_3@.
adVariant@H_502_3@@H_502_3@自动变体型@H_502_3@ (DBTYPE_VARIANT).
adVector @H_502_3@@H_502_3@与其他类型一起加入逻辑@H_502_3@ OR @H_502_3@@H_502_3@中@H_502_3@,@H_502_3@@H_502_3@指示数据是@H_502_3@ DBVECTOR
@H_502_3@@H_502_3@结构@H_502_3@(@H_502_3@@H_502_3@由@H_502_3@ OLE DB @H_502_3@@H_502_3@定义@H_502_3@).@H_502_3@@H_502_3@该结构含有元素的计数和其他类型@H_502_3@
(DBTYPE_VECTOR) @H_502_3@@H_502_3@数据的指针@H_502_3@.
adVarWChar @H_502_3@@H_502_3@以空结尾的@H_502_3@ Unicode @H_502_3@@H_502_3@字符串@H_502_3@. adWChar@H_502_3@@H_502_3@