新手请问，怎么用代码连接带密码的ACCESS

新手请教，如何用代码连接带密码的ACCESS。
没有密码是这样，但是用了密码就不行了。麻烦有时间的老师教下 谢谢

ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DataFile+
';Persist Security Info=false;';
这样看你能明白吧
con1.ConnectionString := Format(Provider, [数据库文件路径, 数据库密码]);