Una ejecucion que devuelva múltiples resultados

[Mario94]

Gracias de antemano por la ayuda.

Tengo ingresar en una BD en Access el id y el grupo pero me esta arrojando: que el proveedor actual no permite una única ejecucion que devuelva múltiples resultados. Como se soluciona?
Este es el código, el id no lo puedo poner de otra forma pues no me corre en Embarcadero C++ 2010, esta es la unica forma en la que corre.

Código Delphi [-]

void __fastcall TForm2::SpeedButton1Click(TObject *Sender)
{
if (!Edit1->Text.IsEmpty())
{
 ADOQuery1->Close();
 ADOQuery1->SQL->Clear();
 String id = "SELECT MAX(IdGrupos) AS Maximo FROM Grupos";
 ADOQuery1->SQL->Add(id);
 ADOQuery1->Open();
 String idincrementado = ADOQuery1->FieldByName("Maximo")->AsInteger + 1 ;
 ADOQuery1->Close();
 ADOQuery2->Close();
 ADOQuery2->SQL->Clear();
 String ingresargrupos = "INSERT INTO Grupos VALUES ('"+idincrementado+"','"+Edit1->Text+"')" ;
 ADOQuery2->SQL->Add(ingresargrupos);
 ADOQuery2->Open();
 ADOQuery2->Close();

}
else
{
String titulo = "ERROR" ;
String mesage = "La casilla grupo se encuentra vacia" ;
Application->MessageBoxA(mesage.c_str(),titulo.c_str(),MB_ICONERROR);
}
}