Option Explicit

Dim FileName As String

' 创建数据库以及表和字段
Private Sub Command1_Click()
Dim MyTable As TableDef
Dim MyField As Field
Dim MyDatabase As Database

Set MyDatabase = CreateDatabase(FileName, dbLangGeneral) ' 创建数据库
Set MyTable = MyDatabase.CreateTableDef(Text2.Text) ' 创建表
Set MyField = MyTable.CreateField(Text3.Text, dbText, 50) ' 创建字段
MyTable.Fields.Append MyField ' 将新创建的字段添加到表中
MyDatabase.TableDefs.Append MyTable ' 将表添加到数据库中

' 重复创建多个表和字段并添加到数据库中
Set MyTable = MyDatabase.CreateTableDef(Text4.Text)
Set MyField = MyTable.CreateField(Text5.Text, dbText, 50)
MyTable.Fields.Append MyField

Set MyField = MyTable.CreateField(Text6.Text, dbText, 50)
MyTable.Fields.Append MyField
MyDatabase.TableDefs.Append MyTable

MsgBox "完成创建数据库 " + FileName
End Sub

' 设置创建的数据库的位置和名称
Private Sub Command2_Click()
' 设置对话框
With CommonDialog1
.CancelError = True
.Filter = "数据库(*.mdb)|*.mdb"
.Flags = cdlOFNHideReadOnly
.ShowSave
If Err.Number = cdlCancel Then
Err.Clear
Exit Sub
End If

FileName = .FileName
Text1.Text = .FileTitle
End With
End Sub

' 退出程序
Private Sub Command3_Click()
End
End Sub