我觉得应该是很简单的代码，为什么不能成功呢？是不是需要什么条件，新手问题，谢谢！

Question

user 是保留字
ExtractFilePath(Application.ExeName)

Answer 1

例：：：      ADOConnection1.Close;
      ADOConnection1.Connected:=false;
      ADOConnection1.ConnectionString:='';
      str:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data Source=';
      AppPath:=ExtractFileDir(Application.ExeName);
      str:=str+AppPath+'\bsdata\'+Node.Parent.Text;//ttreeview里的一个结点
      ADOConnection1.ConnectionString:=str+'.mdb;Mode=Share Deny None;'+'Extended Properties="";Jet OLEDB:System database="";'+'Jet OLEDB:Registry Path="";'+'Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=4;'+'Jet OLEDB:Database 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 OLEDB:Don''t Copy Locale on Compact=False;'+'Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False';
      ADOConnection1.Connected:=true;
      ADOConnection1.Open;

Answer 2

1、
procedure TForm1.FormCreate(Sender: TObject);
begin
  ADO1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=tele.mdb;Persist Security Info=False';
  ado1.connected :=true;
  with adoquery1 do
    begin
    close;
    connection:=ado1;
    sql.clear;
    sql.add('select * from user');
    Open;
    end;
end;
2、
按普通的bde操作，（没太大区别)
3、
  extractfilepath(paramstr(0))

Answer 3

另：不要用user作表名，用其它的