为什么我这样写ADO创建过程不行呢？

为什么我这样写ADO创建过程不行呢？
resourcestring
  adocs='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Jet OLEDB:Database Password=;Persist Security Info=False';var
  Form1: TForm1;
implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);var
 s,s2:string;
begin
 s2:=trim(edit1.Text );
 s:='create database '+s2;
 ADOConnection1.Provider :=' Microsoft.Jet.OLEDB.4.0';
 ADOConnection1.ConnectionString :=Format(adocs,[s2]);
 ADOConnection1.LoginPrompt := false;
 ADOQuery1.Connection :=ADOConnection1;
 ADOQuery1.SQL.Clear ;
 ADOQuery1.SQL.Add(s);
 ADOQuery1.Active :=true;
 ADOQuery1.Active :=false; 
 s:='create table lianxi2('+#13#10;
 s:=s+'name char(20),'+#13#10;
 s:=s+'age number(3))';
 ADOQuery1.SQL.Clear ;
 ADOQuery1.SQL.Add(s);
 ADOQuery1.Open ;
 ADOQuery1.Close ;// ADOConnection1.ConnectionString :=Format(adocs,[s2]);
 DataSource1.DataSet :=ADOQuery1;
 DBGrid1.DataSource :=DataSource1;
 s:='select * from lianxi2';
 ADOQuery1.SQL.Clear ;
 ADOQuery1.SQL.Add(s);
 ADOQuery1.Open ;
end;
编译器说：路径找不到，该怎么写才是对的