新建ACCESS数据库
怎样新建一个ACCESS数据库，是通过引用对象吗？
[解决办法]
Private Sub Command1_Click()
CreateNewAccessDatabase
End Sub
Public Function CreateNewAccessDatabase()
Dim dbs As Object, tdf As Object, fld As Variant
Dim FnameDB As String
Const DB_Text As Long = 10
Const FldLen As Integer = 40
FnameDB = "c:\cbm.mdb"
If Dir(FnameDB) <> "" Then MsgBox "数据库已存在": Exit Function
Set appAccess = CreateObject("Access.Application.9")
appAccess.NewCurrentDatabase FnameDB
Set dbs = appAccess.CurrentDb
Set tdf = dbs.CreateTableDef("Contacts")
Set fld = tdf.CreateField("公司", DB_Text, FldLen)
tdf.Fields.Append fld
Set fld = tdf.CreateField("电话", DB_Text, FldLen)
tdf.Fields.Append fld
Set fld = tdf.CreateField("地址", DB_Text, FldLen)
tdf.Fields.Append fld
dbs.TableDefs.Append tdf
Set appAccess = Nothing
MsgBox "数据库已建立"
End Function
