Private Sub Com_creat_Click()
On Error GoTo Err100
CreatDataBase "数据库名称.mdb" ，dbLangGeneral
Msgbox "数据库建立完毕"
Exit Sub
Err100:
MsgBox "不能建立数据库! " & vbCrLf & vbCrLf & Err.Description, vbInformation
End Sub
　　
CreatDataBase "数据库名称.mdb" ，dbLangGeneral 许多网上资料都是这样写的，这句怎么显示红的，通过不了，怎样改写

在DAO中用CreatDataBase方法可以根据用户需求动态的创建数据库。
你添加了DAO吗？

添加DAO
方法为打开VB6.0 , 从VB的"工程"菜单中，选择"引用"项，当"引用"对话框出现后，从库的列表中，选择"Microsoft DAO 3.51 Object Library",单击"确定"。

我添加了的，代码如下：
Private Sub Command1_Click()
On Error GoTo Err100
CreatDataBase "Êý¾Ý¿âÃû³Æ.mdb" £¬dbLangGeneral
MsgBox "Êý¾Ý¿â½¨Á¢Íê±Ï"
Exit Sub
Err100:
MsgBox "²»Äܽ¨Á¢Êý¾Ý¿â! " & vbCrLf & vbCrLf & Err.Description, vbInformation
End Sub

[此贴子已经被作者于2007-1-26 15:33:07编辑过]

我发现下面的代码可以创建旧版本的access数据库，上面的代码出现所提到的红色显示，及无效字符提示，能不能创建新版本的数据库．
Private Sub Command1_Click()
Dim DefDatabase As Database
Dim DefTable As TableDef, DefField As Field
Dim TdbName As String
TdbName = "c:\dd.mdb"
CreateDatabase TdbName, dbLangGeneral
Set DefDatabase = Workspaces(0).OpenDatabase(TdbName, 0, False)
Set DefTable = DefDatabase.CreateTableDef("table1")
Set DefField = DefTable.CreateField("Fiele1", dbInteger, 1)
DefTable.Fields.Append DefField
Set DefField = DefTable.CreateField("Fiele2", dbText, 8)
DefTable.Fields.Append DefField
DefField.AllowZeroLength = True
DefDatabase.TableDefs.Append DefTable

End Sub

[CODE]

功夫不负有心人，有结果了代码如下，测试通过．

[/CODE]Private Sub Com_creat_Click()
Dim TdbName As String
On Error GoTo Err100
TdbName = "c:\23.mdb"
CreateDatabase TdbName, dbLangGeneral

MsgBox "数据库建立完毕"

Err100:
MsgBox "数据库不能建立" & vbCrLf & vbCrLf & Err.Description, vbInformation

如有更好答案，请呈上

[此贴子已经被作者于2007-1-26 16:44:54编辑过]

老实说 我看不出1楼和5楼的代码有什么区别 5楼咋就通过了呢

不信的话，你可亲身试试，事实总是胜于雄辩．我个人认为，可能＂数据库名称.mdb＂
是无效的字符串，（因为有这样的提示，）而５楼定义了变量后，代码通过，原因就在这儿吧？我猜想的，但是１楼的代码难道没有人试过吗？我是一个喜欢尝试的人，结果发现了问题．因此提醒大家，不要盲目转载．