创建数据库：database 变量未定义？该怎么处理
创建数据库：database 变量未定义？？
各位大侠：
日前在网上搜的代码一堆，可用于创建数据库。原工程文件可以成功创建。但是把代码copy到建立的工程文件后就不行了。代码如下：
错误截图如下：
在可行的工程文件中，并没有添加其他部件。或者说我创建的工程文件中已经添加的控件已经包含原工程文件的控件。不知这样是怎么回事？还望指点
------解决方案--------------------
需要引用 DAO:
在 VB 中选择“工程”-“引用”菜单，在弹出的对话框中找到并勾选 Microsoft DAO 3.6 Object Library。
各位大侠：
日前在网上搜的代码一堆，可用于创建数据库。原工程文件可以成功创建。但是把代码copy到建立的工程文件后就不行了。代码如下：
Dim db As Database
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "请输入要创建的数据库路径和名称！"
Exit Sub
End If
Set db = DBEngine(0).CreateDatabase(Text1.Text, dbLangGeneral)
Set db = Nothing
End Sub
错误截图如下：
在可行的工程文件中，并没有添加其他部件。或者说我创建的工程文件中已经添加的控件已经包含原工程文件的控件。不知这样是怎么回事？还望指点
------解决方案--------------------
需要引用 DAO:
在 VB 中选择“工程”-“引用”菜单，在弹出的对话框中找到并勾选 Microsoft DAO 3.6 Object Library。