error

[vankul]

Hola qué hay.
Verán utilizo el siguiente código en c++ builder, me funciona bien en el ordenador donde programo pero al trasladar el programa a otro ordenador me dice que no encuentra la base de datos y resulta que está en mismo directorio que el programa. He buscado por internet y he mirado algunos ejemplos y así debería funcionar pero no lo hace.

const AnsiString DataBaseFileName = "\socis.abs";

void __fastcall TForm1::FormCreate(TObject *Sender)
{
    ABSDatabase1->DatabaseFileName = ExtractFilePath(Application->ExeName) + DataBaseFileName;
    ABSDatabase1->Open();
    ABSQuery1->Close();
    ABSQuery1->Open();
}

Alguna idea?
Gracias.