[Yurk@]

Ты сделал проверку на открытость БД и вывод соответствуещего сообщения об этом ... а вот что сделать если БД не открыта ты не сделал
Дкмаю, лучше будет так:

Код:

 if od.Execute then
begin
sfCSV.CSVQuote:='"';
sfCSV.CSVRecordDelimiter:=',';
dsbdcomp.DataSet:=bdcomp1;
try
bdcomp1.Open;
 try
 bdcomp1.LoadFromFileViaFormat('c:\1.csv',sfCSV);
 showmessage('открыт111а');
 Except
 ShowMessage('Ошибка открытия файла');
 end;
Except
ShowMessage('Ошибка открытия БД');
end;
end;