Conexión o ruta relativa

[yosmor]

Muchas gracias, me ayudaste bastante. Pero ahora tengo el siguiente problema

var
          ruta:String;
          begin
            ruta:=ExtractFilePath(ParamStr(0))+ 'base.mdb';
            ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ ruta;
            ADOTable1.Active:=True;
          end;

Cuando le doy F9 me da error de conexión. Tengo mal la sintaxis

Disculpa si son muy evidentes mis errores pero es que estoy migrando a Delphi.

Gracias!,
Saludos.