Error

[vankul]

Hola tengo el siguiente código:

Código:

const AnsiString DataBaseFileName = "\socis.abs";

Código:

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

En el ordenador donde programo funciona bien pero al pasar el programa resultante a otro ordenador me dice que no encuentra la base de datos y en teoría está en el mismo directorio del programa. Alguna sugerencia gracias.

[Libras]

Eso es codigo de programacion, no tiene que ver con bases de datos.....