vb连接数据库问题

Question

 Set g_conn = Server.CreateObject("ADODB.Connection")    Dim ServerName As String, DBname As String, UserName As String, strPwd As String
    Dim strDBPath As String    ServerName = "localhost"
    DBname = "题库"
    UserName = "sa"
    strPwd = ""
    strDBPath = App.Path & "\题库.mdb"    With g_conn
    'If DBType = DBAccess Then
       .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Password='';" & "Data Source =" & _
       strDBPath '(为什么这一行有错?)
    'Else
    '连接SQLServer
       '.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=True;" & _
       ' "User ID=" & UserName & ";Initial Catalog=" & DBname & _
       ' ";Data Source=" & ServerName & ";pwd=" & strPwd
    'End If
    .Open
    End With为什么ConnectionString那一行有错呢?

Answer 1

是 VBA 代码？？？？？？？？？？？？？？？？？？？？？？

Answer 2

试试：
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath