请教各位高手！！！！！(100分)

我是用ADO方法连接Access数据库,本来用ADOConnection控件可以在直接配置，但我现在要用代码直接写出来，该怎么写；
譬如我的ConnectionString是:
Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=D:/check/remote viwer/db1.mdb;Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDBatabase Password="";Jet OLEDB:Engine Type=5;Jet OLEDBatabase Locking Mode=0;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 OLEDBon't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False
请各位高手赐教！

直接使用
AdoConnection1.Close;
ADOConnection1.ConnectionString:='Microsoft.Jet.OLEDB.4.0;'+
'User ID=Admin;'+
'Data Source=D:/check/remote viwer/db1.mdb;'+
'Mode=Share Deny None;Extended Properties="";'+
'Jet OLEDB:System database="";'+
'Jet OLEDB:Registry Path="";'+
'Jet OLEDBatabase Password="";'+
'Jet OLEDB:Engine Type=5;'+
'Jet OLEDBatabase Locking Mode=0;'+
'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 OLEDBon't Copy Locale on Compact=False;'+
'Jet OLEDB:Compact Without Replica Repair=False;'+
'Jet OLEDB:SFP=False';
AdoConnection1.Open;
就可以了。
建议对Data Source使用动态路径配置，写在字符串里，对于可执行文件和
数据库在一个目录下面，那么可以不写路径，这样简单一些。

Spath:=ExtractFilePath(Application.ExeName)+'databasename.MDB';
Local.Connected:=False;
Local.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+spath+';Persist Security Info=False';
Try
Local.Connected:=True;
except
on E:EDatabaseError do
begin
application.MessageBox('数据库无法连接!','警告!',MB_OK);
Local.Connected:=False;
Application.Terminate;
end;
end;

AdoConnection1.Close;
AdoConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=D:/check/remote viwer/db1.mdb;Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDBatabase Password="";Jet OLEDB:Engine Type=5;Jet OLEDBatabase Locking Mode=0;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 OLEDBon't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False'
Try
AdoConnection1.Open;
except
on E:EDatabaseError do
begin
ShowMessage('连接出错');
Close;
end;
end;

多人接受答案了。