Ошибка при запуске программы с базой данных

[Kreadlling]

Здравствуйте! При запуске программы с базой данных вылетает ошибка
Database must be specified (смотрите рисунок)
Код здесь:

procedure TFormMain.BitBtn1Click(Sender: TObject);
var s:string;
begin
   if (InputQuery('Ввод группы', 'Группа:', s)) then
   begin
      with dm.q do
         begin
            Active := false;
            SQL.Clear;
            SQL.Add('INSERT INTO GROUPS(NAME_GROUPS) VALUES(');
            SQL.Add(QuotedStr(s) + ')');
            ExecSQL;
         end;
      with dm.SimpleDSGroups do
         begin
            Active := false;
            DataSet.Active := false;
            DataSet.Active := true;
            Active := true;
            Locate('NAME_GROUPS', s, [loCaseInsensitive]);
         end;
      BitBtnEnabled(0);
   end;
end;

procedure TFormMain.BitBtn4Click(Sender: TObject);
var s:string;
begin
   if (InputQuery('Ввод ФИО', 'ФИО:', s)) then
   begin
      with dm.q do
         begin
            Active := false;
            SQL.Clear;
            SQL.Add('INSERT INTO STUDENTS(FIO, ID_GROUPS) VALUES(');
            SQL.Add(QuotedStr(s) + ',' + dm.SimpleDSGroups.FieldByName('ID_GROUPS').AsString + ')');
            ExecSQL;
         end;
      with dm.SimpleDSStudents do
         begin
            Active := false;
            DataSet.Active := false;
            DataSet.Active := true;
            Active := true;
            Locate('FIO', s, [loCaseInsensitive]);
         end;
      BitBtnEnabled(1);
   end;

end;

procedure TFormMain.BitBtn7Click(Sender: TObject);
begin
  close;
end;

procedure TFormMain.BitBtnEnabled(i: integer);
begin
  case i of
    0:
      begin
        if dm.SimpleDSGroups.RecordCount = 0 then
          begin
            BitBtn2.Enabled := false;
            BitBtn3.Enabled := false;
          end
        else
          begin
            BitBtn2.Enabled := true;
            BitBtn3.Enabled := true;
          end;
      end;
    1:
      begin
        if dm.SimpleDSGroups.RecordCount = 0 then
          BitBtn4.Enabled := false
        else
          BitBtn4.Enabled := true;
        if dm.SimpleDSStudents.RecordCount = 0 then
          begin
            BitBtn5.Enabled := false;
            BitBtn6.Enabled := false;
          end
        else
          begin
            BitBtn5.Enabled := true;
            BitBtn6.Enabled := true;
          end;
      end;
  end;
end;

procedure TFormMain.FormActivate(Sender: TObject);
begin
  PageControl1.ActivePage := TabSheet1;
  dm.SQLConnection1.Connected := false;
  dm.SQLConnection1.Params.Values['database'] := ExtractFileDir(ParamStr(0)) + '\bd.fdb';
  dm.SQLConnection1.Connected := true;
  dm.SimpleDSGroups.Active := false;
  dm.SimpleDSGroups.DataSet.Active := false;
  dm.SimpleDSGroups.DataSet.CommandText := 'SELECT * FROM GROUPS';
  dm.SimpleDSGroups.DataSet.Active := true;
  dm.SimpleDSGroups.Active := true;
  BitBtnEnabled(0);
end;

procedure TFormMain.PageControl1Change(Sender: TObject);
begin
   if PageControl1.ActivePage = TabSheet2 then
      begin
         BitBtnEnabled(1);
         if dm.SimpleDSGroups.RecordCount = 0 then
            exit;
         with dm.SimpleDSStudents do
            begin
               Active := false;
               DataSet.Active := false;
               DataSet.CommandText := 'SELECT * FROM STUDENTS WHERE ID_GROUPS=' +
               dm.SimpleDSGroups.FieldByName('ID_GROUPS').AsString;
               DataSet.Active := true;
               Active := true;
            end;
      end;
end;

end.

Не подскажете как можно это исправить. Заранее благодарю.

[BARNEY]

а по f7 строчку нельзя определить?

[Stilet]

dm.SQLConnection1.Params.Values['database'] := ExtractFileDir(ParamStr(0)) + '\bd.fdb';

а почему не пользуешь IBDatabase?