急,应该是简单问题
Dim str As Stringstr = App.Path
If Right(str, 1) <> "\" Then str = str + "\"
str = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;data source= "&str&"\企业质资.mdb"
最后一句说缺少语句结束是什么意思职 --------------------编程问答-------------------- vb 和 asp 语法很相近 但是也是有差别的, "&" 字符串连接符 前后最好都有空格, "\" 似乎多了1个
Dim str As String
str = App.Path
If Right(str, 1) <> "\" Then str = str + "\"
str = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;data source= " & str & "企业质资.mdb"
补充：VB , 基础类
