Ao realizar a conexão clicando no botão, aparece o seguinte erro
segue código:
procedure TForm1.Button1Click(Sender: TObject);
begin
fdconnection1.Params.Database := GetCurrentDir+'\assets\contatos.mdb';
fdconnection1.Connected := true;
fdcontatos.TableName := 'contatos';
fdcontatos.Active := true;
if fdconnection1.Connected = true then
conexao.Caption :='Conectado'
end;
end.
Segue caminho do meu arquivo: