[UnFeeLing]

Код:

try
TableDB.Active:=false;
TableDB.Close;
TableDB.TableName:=extractfilepath(Application.ExeName)+'DB\'+ComboBox2.Text+'.db';
TableDB.Open;
TableDB.Active:=true;
Except

ON E:EDBEngineError do  showmessage('DB не найдена');
end;

или же так