Private Sub Command1_Click()
Dim testws As Workspace '定义操作数据文件
Dim testdb As Database
Dim testtd As TableDef
Dim testfld As Field
Dim testflds As Fields
Set testdb = OpenDatabase("e:\test.mdb") '确定数据库坐在位置
Set testtd = testdb.TableDefs("学生") '打开要添加字段的表
Set testflds = testtd.Fields '定义字段