vb连接数据库问题

VB code:

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那一行有错呢?

---

这段没错。
（回复内容太短了！ ）

---

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

---

Server是个什么东西？