Access 連接字符串 
strConnect = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyDatabase.mdb;” 

Access 2007 連接字符串 
strConnect = “Provider=Microsoft.ACE.OLEDB.12.0;Mode=Share Exclusive;Data Source=C:\MyDatabase.accdb;” 

MSSQL Server 連接字符串 
strConnect = “Provider=SQLOLEDB;Data Source=ServerName\InstanceName;Initial Catalog=DatabaseName;User ID=UserName;Password=password;” 

Excel 連接字符串 
strConnect = “Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=”"Excel 8.0;HDR=YES”";Data Source=C:\MyWorkbook.xls;” 
其中HDR默認值為YES表示第一行為字段名, 否則第一行將作為內容 

Excel 2007 連接字符串 
strConnect = “Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=C:\MyWorkbook.xlsx;” 

文本文件(文本文件也能當數據庫使用) 
strConnect = “Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Text;Data Source=C:\Files\;” 
呃, 參數Data Source為包含文件的目錄名, 而不是文件名稱. 如果文本文件的第一行不包含字段名稱, 則必須在參數Extended Properties中參加HDR=No(同Excel), 以避免丟失第一行的數據. 



使用連接字符串 

復制代碼代碼如下:

Dim conn 
Sub DBOpen() 
Dim db : db=Server.MapPath(”zzz.mdb”) 
Set conn=Server.CreateObject(”Adodb.Connection”) 
On Error Resume Next 
conn.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & db 
If Err.Number<>0 then 
Err.Clear 
Response.Write(”<h1>The Database link is ERROR</h1>”) 
Response.End() 
End If 
On Error GoTo 0 
End Sub 

Call DBOpen() 
… … 
conn.CLose() : Set conn=Nothing