Question

vb数据库问题，求教各位大神

Private Sub Command2_Click()
On Error GoTo Err100
CreateDatabase "采集信息数据库.mdb", dbLangGeneral
Exit Sub

Err100:
MsgBox "不能建立数据库! " & vbCrLf & vbCrLf & Err.Description, vbInformation
Dim temstr As String, retstr As String
Dim Defdb As Database
Dim NewTable As TableDef
temstr = "请输入存档名"
retstr = InputBox(temstr, "保存", 1)
Set Defdb = Workspaces(0).OpenDatabase(App.Path & "采集信息数据库.mdb", 0, False)
Set NewTable = DefDataBase.CreateTableDef(restr)
End Sub
每次运行的时候都说找不到数据库mdb文件，但是我在文件夹里面看到有那个文件

Answer 1

少了个斜杠
App.Path & "\采集信息数据库.mdb"

Answer 2

Set Defdb = Workspaces(0).OpenDatabase(App.Path & "\采消中集信息数据库.mdb", 0, False)
加上反斜杠，并确保“采集信息数据库.mdb”与EXE文件在同一运拆文件夹，VB环境下在旁桥枣...vb98下