Dividiamo la stringa cosi


dim strCode
strCode="password"

Set dbConn=Server.CreateObject("ADODB.Connection")
dbConn.ConnectionTimeout=60

strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath(dbPath)
strConn=strConn & ";pwd=" & strCode
dbConn.Open strConn

Ciao Steweb