مشکل در اتصال به اکسس با ODBC

[Beginner2013]

ببخشید من اینقد سوال میکنم،انشالا روزیم بتونم تو این تالار به دیگران کمک کنم.یه مشکل برام پیش اومده


function translate(word:string):string;
var
rs:_Recordset;
res:string;
AppPath:string;
begin
AppPath:=GetCurrentDir();
frmMain.ADOConnection1.ConnectionString:='Provider =Microsoft.Jet.OLEDB.4.0;data source='+AppPath+'/db.mDB';
frmMain.ADOConnection1.Open;
rs:=frmMain.ADOConnection1.Execute('select * from (English inner join Farsi on English.Word_ID=Farsi.English_ID) Where English_Word="'+word+'"');
if rs.EOF then
begin
result:='';
rs.Close;
frmMain.ADOConnection1.Close;
Exit;
end;
res:=rs.Fields.Item['Farsi_Word'].Value;
rs.Close;
frmMain.ADOConnection1.Close;
result:=res;
end;


با کد بالا مشکلی نیست.اما


function translate(word:string):string;
var
rs:_Recordset;
res:string;
AppPath:string;
begin
AppPath:=GetCurrentDir();
frmMain.ADOConnection1.ConnectionString:='Driver={ Microsoft Access Driver (*.mdb)};Dbq='+AppPath+'/db.mDB';
frmMain.ADOConnection1.Open;
rs:=frmMain.ADOConnection1.Execute('select * from (English inner join Farsi on English.Word_ID=Farsi.English_ID) Where English_Word="'+word+'"');
if rs.EOF then
begin
result:='';
rs.Close;
frmMain.ADOConnection1.Close;
Exit;
end;
res:=rs.Fields.Item['Farsi_Word'].Value;
rs.Close;
frmMain.ADOConnection1.Close;
result:=res;
end;


خطای ران تایم میگیره(Too few parameters expected '1') برا خط

if rs.EOF then


ممنون میشم دوستان راهنمایی کنن.

[Beginner2013]

اگه میشه دوستان یه راهنمایی بکنن.من با هردوی این کانکشن استرینگ ها با vb6 و jscript می تونم وصل بشم و مشکلی هم پیش نمیاد،اما تو دلفی فقط OleDb جواب میده.قصدم از استفاده از odbc اینکه چیز اضافی برا نصب لازم نداشته باشم و برنامم پرتابل باشه.
با تشکر