🚀 go-pugleaf

Hi!

I�m using ADO+MS Access. i�m trying to open a connection but I got this 
message:

Project PCeale.exe raised exception class EAccessViolation with message 
'Access violation at address 405B92BA in module 'VCDLDB50.BPL'. Read of 
address 00000000'. Process stopped. Use Step or Run to continue.

I used CodeGuard to analyse the code and I get the warning when error 
happens:

Method called on invalid object
Attempt to access 216 bytes at 0x00000000.
0xEEEEEEEE
	Adodb::TADOConnection::Open()
	TProjPesqForm::BtnGravaProjPesqClick(const System::TObject *)
	0x4006B958
	0x40047E41
	0x4006E4A8
	0x4006DF7B

The code where it happens is the following (ADOQInsProjPesq is an 
ADOQuery with connectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data 
Source=C:\renato\sistemas\ceale\ceale.mdb;Mode=ReadWrite|Share Deny 
None;Persist Security Info=False):

     AnsiString str_SQL = "";
     AnsiString str_IDProjAbrang = "0";
     //Abrangencia Beg.

     this->ADOQInsProjPesq->Connection->Open(); <<== LOCATION OF ERROR !

     this->ADOQInsProjPesq->Connection->BeginTrans();

     str_SQL = "insert into projeto_abrangencia (desc_projabrang, 
id_abrang) ";
     str_SQL +=" select '" + str_Localidade + "', abrangencia.id_abrang ";
     str_SQL +=" from projeto_abrangencia pa, abrangencia a ";
     str_SQL +=" where pa.id_abrang = a.id_abrang ";
     str_SQL +=" and a.tipo_abrang = '" + str_Abrang + "'";

     this->ADOQInsProjPesq->Close();
     this->ADOQInsProjPesq->SQL->Clear();
     this->ADOQInsProjPesq->SQL->Add(str_SQL);

     try {
         this->ADOQInsProjPesq->ExecSQL();
         this->ADOQInsProjPesq->Connection->CommitTrans();
     } catch (...) {
         this->ADOQInsProjPesq->Connection->RollbackTrans();
         ShowMessage ("Erro ao gravar '" + str_Localidade + "' no banco");
         return; //interrupcao da gravacao
     }
     this->ADOQInsProjPesq->Close();

I�d like to know what i�m doing wrong... thank you.