void __fastcall TMainForm::Button1Click(TObject *Sender)
{
//     DB_Open(1,1,1,1);
     try
     {
          ADOConnection1->Close();
          ADOConnection1->Open();
     }
     catch (Exception &exception)
     {
           Application->ShowException(&exception);
     }
   
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Button2Click(TObject *Sender)
{
    /*char pszSendData[1024];
     long  lSendSize;
     char pszReadData[1024];
     long lReadSize;
     SendCommand (1,pszSendData, lSendSize,pszReadData, lReadSize);*/

     char imsi[1024]={0,};
     String strGenre;


     ADOCommand1->CommandText = "select * from TCS_SYS16 ";
     //ADOCommand1->RecordSet = ADOCommand1->Execute();
     ADODataSet1->Recordset = ADOCommand1->Execute();

     int nField = ADODataSet1->Recordset->Fields->Count;

     while (!ADODataSet1->IsEmpty())
    {
          //strcpy(imsi," ");
        for( int index = 0; index < nField; index++ )
        {
            ADODataSet1->GetFieldData(index, imsi);

        }

        ADODataSet1->Recordset->MoveNext();
     }
}

일단 버튼 1에서 애러는 안나는대요..

쿼리문을 전송하고 나서. 데이터를 받는 부분이 영 잘 모르갰내요..

어디 좋은 참고 할만한 서적두 엄꾸..해서 여러 고스님들의 도움을 받고자 이렇게 글을 납깁니다.
While 문 부터가 재가 대이타를 받을려고 하는 부분인대요. for 문안에 들어가자 마자 애러가 납니다.

raised execption class eAccess Violation, with message 'Access violation at address 0043b2E0 in modele.

이것좀 봐주새요....ㅠㅠ