Отправить данные из DBGrid в StringGrid и при этом присвоить значение "0" тем строкам, которые НЕ встречаются в одной из таблиц БД

[Ягодка]

Добрый вечер, уважаемые форумчане!
У меня есть БД (создана в MS Access), схема данных которой изображена на рисунке "bd.jpg".
Там есть таблицы "Поставщики", "Ремонт", "Оборудование". Эти таблицы самые важные) Мне необходимо заполнить таблицу StringGrid следующими данными: "№ поставщика", "Наименование поставщика", "Общее количество техники", "Общая продолжительность гарантии", "Общая стоимость ремонта". Но поставщики-то у меня есть хорошие и нехорошие
Хорошие поставщики не входят в таблицу "Ремонт" моей БД, а нехорошие-в неё заносятся. Проблема в том, что тем поставщикам, кто не входит в таблицу "Ремонт", нужно в поле "Общая стоимость ремонта" в StringGrid-е присвоить значение "0" (они же хорошие и мы не потратили на ремонт их техники наши денежки )
Я смогла сделать следующее - это изображено на скрине моего приложения "exe.jpg":
Отбираются поставщики, чьё оборудование сломалось, и сумма затраченных на ремонт денег.
Это делается с помощью текста запроса:

Select
[Поставщик].[№ поставщика], [Поставщик.Наименование поставщика],
sum ([Ремонт].[Стоимость]) as [Общая стоимость ремонта]
from [Оборудование], [Поставщик], [Ремонт]
where [Оборудование].[№ серийный]=[Ремонт].[№ серийный]
and [Поставщик].[№ поставщика]=[Оборудование].[№ поставщика]
group by [Поставщик].[№ поставщика],
[Поставщик].[Наименование поставщика]

Отбираются поставщики, чьё оборудование не сломалось.
Это делается с помощью текста запроса:

Select [Оборудование].[№ серийный], [Оборудование].[Наименование],
[Оборудование].[Количество], [Оборудование].[Стоимость],
[Оборудование].[Продолжительность гарантии],
[Поставщик].[№ поставщика], [Поставщик.Наименование поставщика]
from [Оборудование], [Поставщик]
where [№ серийный] not in (Select [№ серийный] from [Ремонт])
and [Поставщик].[№ поставщика]=[Оборудование].[№ поставщика]
order by [Поставщик].[№ поставщика]

Отбираются все поставщики и общее количество техники и общая продолжительность гарантии, которую они нам предоставили.
Это делается с помощью текста запроса:

select [Поставщик].[№ поставщика],
[Поставщик].[Наименование поставщика],
sum([Оборудование].[Количество]) as [Общее количество],
sum ([Оборудование].[Продолжительность гарантии]) as [Общая гарантия]
from [Оборудование], [Поставщик]
where [Поставщик].[№ поставщика]=[Оборудование].[№ поставщика]
group by [Поставщик].[№ поставщика],
[Поставщик].[Наименование поставщика]

В StringGrid я сумела занести только "№ поставщика", "Наименование поставщика", "Общее количество техники", "Общая продолжительность гарантии", с помощью вот этого кода:

var
i,j:integer;
begin
j := 1;
DBGrid3.DataSource.DataSet.First;
while not DBGrid3.DataSource.DataSet.Eof do
begin
for i := 0 to DBGrid3.Columns.Count - 1 do
begin
StringGrid1.Cells[i, j] := DBGrid3.DataSource.DataSet.Fields[i].AsString;
end;
Inc(j);
DBGrid3.DataSource.DataSet.Next;
StringGrid1.RowCount:=StringGrid1.RowCount + 1 ;
end;
StringGrid1.RowCount:=StringGrid1.RowCount -1;
end;

Но как запихнуть последним столбцом в StringGrid поле "Общая стоимость ремонта", да ещё чтоб соответствующим нехорошим поставщикам присваивалась сумма денег, которые мы потратили, ремонтируя их барахло, а хорошим поставщикам-присвоились просто нолики - вот это я не знаю.
П.с.: и кстати, когда жму на кнопку - в StringGrid кроме нужных мне значений почему-то ещё пристраиваются несколько лишних пустых строк.Как избежать этого?