Dbcombobox

اخواني الكرام

لقد صادفتني هذه المشكلة وهي كالتالي

اذا كان ADOTable علي الفورم واستخدمت الكود التالي فلا مشكلة

procedure TForm1.FormCreate(Sender: TObject);
begin
while not (TblN_Micro.Eof)  do
  begin
	  DBComboBox1.Items.Add(TblN_MicroN_Specimen.Value);
	  TblN_Micro.Next;
  end;
end;

اما اذا كان ADOTable يوجد في Module واستدعيت الجدول من خلال الموديول كالتالي

while not (GenralMod.TblN_Micro.Eof)  do

يظهر خطأ كالتالي

First chance exception at $7C81EB33. Exception class EAccessViolation with message 'Access violation at address 00686739 in module 'MidProj.exe'. Read of address 0000007C'. Process MidProj.exe (3612)