Dim CnnMDB as new ADODB.Connection
’ 連接資料庫字串 Access
CnnMDB=”Provider=Microsoft.Jet.OLEDB.4.0;”& app.path & ”AA.MDB”

’ 連接 SQL Server 字串
dim CnnSQL as new ADODB.Connection
CnnSQL=”Provider=SQLOLEDB.1;Persist Security Info=False;Initial Catalog=資料庫名稱;Persist Security Info=True;Data Source=主機名稱或IP;User ID=登入帳號;Password=登入密碼;”