Error en AdoConnection.GetTablename

[Enan0]

Hola amigos. Bueno estoy teniendo un problema Con un programa que estaba funcionando, intente volver a usarlo despues del fin de semana y recibo siempre el mismo error cuando quiero obtener las tablas.

Componete AdoConnection.

Error:
'La operación de múltiples pasos de OLE DB generó errores. Compruebe los valores de estado de OLE DB si es posible. No se realizó ningún trabajo'

codigo

Código Delphi [-]
procedure TForm1.openUdl(filename: string);
var s:string;
begin
    ADOConnection1.Close;
    ADOConnection1.ConnectionString :='FILE NAME='+filename;
    ADOConnection1.Open;
    try
      ADOConnection1.GetTableNames(listbox1.Items,chkSysTable.Checked);
    except
      on e:exception do
         begin
            s:=e.message;
            ShowMessage(s);
         end;
      end;
    lbDBname.Caption := filename;
end;

el UDL funciona SE conecta a la Base de Datos. pero cuando obtener la lista de Tablas.. Da ese error.

Saludos