我也遇到过类似的问题,解决的方法是手工配置AdoConnection.ConnectionString属性,
例如:
//自定义的连接过程:
procedure Tmainform.BuildConnection(databasename:string);
begin
datamodule1.ADOConnection1.Connected:=false;
datamodule1.ADOConnection1.ConnectionString:=
'Provider=Microsoft.Jet.OLEDB.4.0;Password="";'+
'User ID=Admin;'+//用户名
'Data Source='+databasename+';'+
'Mode=Share Deny None;'+
'Extended Properties="";'+
'Locale Identifier=2052;'+
'Jet OLEDB:System database="";'+
'Jet OLEDB:Registry Path="";'+
'Jet OLEDB
atabase Password="wan";'+ //提供数据库的密码
'Jet OLEDB:Engine Type=5;'+
'Jet OLEDB
atabase Locking Mode=1;'+
'Jet OLEDB:Global Partial Bulk Ops=2;'+
'Jet OLEDB:Global Bulk Transactions=1;'+
'Jet OLEDB:New Database Password="";'+
'Jet OLEDB:Create System Database=False;'+
'Jet OLEDB:Encrypt Database=False;'+
'Jet OLEDB
on'+''''+'t Copy Locale on Compact=False;'+
'Jet OLEDB:Compact Without Replica Repair=False;'+
'Jet OLEDB:SFP=False';
try
datamodule1.ADOConnection1.Connected:=true;
except
messagebox(0,'读取文件错误!','错误',mb_iconerror);
end;
n43.Checked:=false;
caption:='信息资源系统';
caption:=caption+'--'+databasename;
end;