Public filename As String, cnstr As String
Public str_username As String
Public str_userqxz As String
Public conn As New ADODB.Connection
Sub main()
    filename = App.Path & "\test\test.mdb" '本句原代码是:filename = "d:\test\test.mdb"运行正常,将d盘修改为当前文件夹下就出问题了.
    cnstr = "Provider =Microsoft.Jet.OLEDB.4.0;Data Source='" & filename & " ';Persist Security Info=False"
    conn.open cnstr'问题出在这句,代码变淡黄色
    frm_login.Show
End Sub
或者如何将以下代码中的d:\test\test.mdb改为当前文件(程序所的)夹下
Public filename As String, cnstr As String
Public str_username As String
Public str_userqxz As String
Public conn As New ADODB.Connection
Sub main()
  filename = "d:\test\test.mdb"
 cnstr = "Provider =Microsoft.Jet.OLEDB.4.0;Data Source='" & filename & " ';Persist Security Info=False"
  conn.open cnstr
  frm_login.Show
End Sub



[ 本帖最后由 曙光电子 于 2012-11-20 19:04 编辑 ]

App.Path值是什么？

[ 本帖最后由 Artless 于 2012-10-21 13:51 编辑 ]

怎么没有老师指点?(App.Path是路经)

filename = App.Path & "\test\test.mdb" '本句原代码是:filename = "d:\test\test.mdb"运行正常,将d盘修改为当前文件夹下就出问题了.
在这句代码下 增加一个MESSAGEBOX（filename） 你就知道错误在哪里了

程序内代码中 还是尽量别用绝对路径的好

严重怀疑你的 App.Path 的值是  d:\

也就是工程放在根目录下执行。

这个贴子就是把绝对路改为动态路经呀?

filename = App.Path & "\test\test.mdb" '本句原代码是:filename = "d:\test\test.mdb"运行正常,将d盘修改为当前文件夹下就出问题了.

这样写吧。
filename=  iif(right(app.path,1)="\" ,app.path & "test\test.mdb",app.path & "\test\test.mdb")
如果 app.path 右边第1个字符是 "\" ，那么 得到 app.path & "test\test.mdb"
否则得到 app.path & "\test\test.mdb" 。IIF 就是一个 IF 结构的压缩 。

附件上传了,怎么没人回答,难吗?

偶没有vb环境  呵呵 无法帮你测试