ошибка "Переполнения"

[Tanuska___:)]

Здравствуйте!
пытаюсь перегнать данные из .dbf в .mdb следующим образом:
но если нет данных добавляеться некоторое колличество данных и пишет ошибку :"Переполнение"
а если данные есть то еще при первом сравнении и обнавленнии появляется ошибка :'list index out of bounds (0)'
Пожалуста скажите в чем тут дело?

procedure TForm2.Button1Click(Sender: TObject);
Var
ExcelApp,Book,Sheet,V:Variant;
I:Integer;
ResultPath: string;
 Begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from Voditely ');
ADOQuery1.Open;
ResultPath:=ExtractFilePath(Application.ExeName)+'GENERAL.xls';
ExcelApp:=CreateOleObject('Excel.Application');
ExcelApp.Workbooks.Open(ResultPath);
Book:=ExcelApp.Workbooks[1];
Sheet:=Book.Worksheets[1];
I:=2;
V:= Sheet.Cells[I, 1].Value;
While Not VarIsEmpty(V) do
begin
if ((Sheet.Cells[I, 1].Value=1) or (Sheet.Cells[I, 1].Value=2))  then
  begin
  //Перебор пока не дойдете до пустой/последней строки
      Edit2.Text:=Sheet.Cells[I, 2].Value;
      Edit3.Text:=Sheet.Cells[I, 5].Value+' '+Sheet.Cells[I, 6].Value+' '+Sheet.Cells[I, 7].Value;
     If (Form1.ADOQuery1.Locate(Form1.ADOQuery1.Fields.Fields[0].FieldName,StrToInt(Edit2.Text),[]))  then
   begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('update Voditely set FIO ='+ QuotedStr(Edit3.Text)+' where tabNom = '+IntToStr(ADOQuery1.Fields.Fields[0].AsInteger));
  ADOQuery1.ExecSQL;
   end  else
        begin
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('insert into Voditely (tabNom, FIO) values('+ QuotedStr(Edit2.Text)+','+ QuotedStr(Edit3.Text)+')');
    ADOQuery1.ExecSQL;
         end;
 end;
 Inc(I);
 V:= Sheet.Cells[I, 1].Value;
end;
ExcelApp.ActiveWorkbook.Close;
ExcelApp.Application.Quit;
Application.MessageBox(0,'Таблица содержащая данные о водителях была успешно обновлена ',MB_ICONINFORMATION);
 end;