access+ado+odbc出现的奇怪问题(100分)

我用ado直接连接access的时候insert update delete 都没有问题，但是，我把access
加上密码之后，就不行了，adoconnection建立access的连接连测试都过不去
然后，我用ado 连接access的dsn，可以连接上了，但是只能select and update
不可以insert and delete ,提示‘access violation at address xxxxxxxx in
module msado15.dll write of address xxxxxxxx’

补充，有的表可以进行所有的操作，有的不可以，但是写的方法是一样的，这是什么原因呢

const{TADOConnection 连接数据库的参数}
ADOLinkString ='Provider=Microsoft.Jet.OLEDB.4.0;'
+ 'Password=%s;' //用户工作组(*.mdw)密码
+ 'User ID=%s;' //用户工作组(*.mdw)用户名Admin
+ 'Data Source=%s;' //数据库文件(*.mdb)位置
+ 'Persist Security Info=True;'
+ 'Mode=ReadWrite;' // 数据库打开方式
+ 'Extended Properties=""' //默认值为空
+ 'Jet OLEDB:System Database=""' //用户工作组文件
+ 'Jet OLEDB:Registry Path=""' //注册路径
+ 'Jet OLEDBatabase Password=%s;' //数据库密码
+ 'Jet OLEDB:Engine Type=1;'
+ 'Jet OLEDBatabase Locking Mode=1;'
+ 'Jet OLEDB:Global Partial Bulk Ops=2;'
+ 'Jet OLEDB:Global Bulk Transactions=1;'
+ 'Jet OLEDB:New Database Password=%s;' //?密码
+ 'Jet OLEDB:Create System Database=False;'
+ 'Jet OLEDB:Encrypt Database=False;'
+ 'Jet OLEDBon''t Copy Locale on Compact=False;'
+ 'Jet OLEDB:Compact Without Replica Repair=False;'
+ 'Jet OLEDB:SFP=False';
var mainDBPath, mdwPassword, mdwUserID, mdbDataSource, mdbUserID, mdbPassword, mdbNewPassword:string;
begin
mainDBPath :=ExtractFilePath(ParamStr(0));
mdwPassword :='';
mdwUserID :='Admin';
mdbDataSource :=mainDBPath+'data/hongyu.mdb';
mdbUserID :='Admin';
mdbPassword :='123456';
mdbNewPassword :=''; //－－－这样设置完后再连接到控件的属性上就可以了！－－－//
with ADOQry_User do
begin {以上是给变量赋值}
Active :=False;
ConnectionString :=Format(ADOLinkString, [mdwPassword, mdwUserId,
mdbDataSource, mdbPassword, mdbNewPassword]);{初始连接参数}
end;
end;

转来自于:www.codelphi.com,中文DELPJI开发在线;
以前我也出现这样的问题,但用BDE没有这样的问题,我还没有换过来,
你试一试!

提示ADOLinkString不符合 ole db 规范

end this question ,i find a way ,thanks a lot

还是不行，太奇怪了

彻底解决了，有谁要是遇到这样的问题就这样办：
access加密码以后，ado直接连接access会出现问题，测试都不会通过，这时候需要建立odbc
,或者，通过.adoconnection.connectionstring ，建立MSDataShape，可以指定数据源
或者位置，一切就都OK了