strTarget = "MySQL"
strDB = "lightbox"
strUser = "root"
strPass = ""

ConnectionString = _
	"Provider=MSDASQL" & _
	";DSN=" & strTarget & _
	";DATABASE=" & strDB & _
	";UID=" & strUser & _ 
	";PWD=" & strPass & _ 
	";" 

on error resume next
Cn.Open ConnectionString
if Err.Number <> 0 then
	WScript.Echo Err.Description
	Wscript.Quit
end if
on error goto 0

' 処理

Cn.Close

strDriver = "{MySQL ODBC 3.51 Driver}"
strServer = "localhost"
strDB = "lightbox"
strUser = "root"
strPass = ""

ConnectionString = _
	"Provider=MSDASQL" & _
	";Driver=" & strDriver & _
	";Server=" & strServer & _
	";DATABASE=" & strDB & _
	";UID=" & strUser & _ 
	";PWD=" & strPass & _ 
	";" 

on error resume next
Cn.Open ConnectionString
if Err.Number <> 0 then
	WScript.Echo Err.Description
	Wscript.Quit
end if
on error goto 0

' 処理

Cn.Close