更换下面的文件名和密码即可。
Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:\db.mdb;Jet OLEDB:Database Password=abcd
Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:\db.mdb;Jet OLEDB:Database Password=abcd
msgbox "不可识别的数据库格式!"
elseif office.access.version=2000 and jet.oledb.version=4.0 then
msgbox "测式连接成功!"
end if