строк из таблицы в доступе

[kas1]

Привет
Чат работает с VB6 и доступа.У меня есть кнопка называется "cmddelete".Когда я нажимаю эту строку таблицы доступа должна быть исключена.строка имеет поля "колба", "Статус", "тип", когда нажмите кнопку будут удалены все поля.за что им с помощью следующего кода

ad1.Recordset.Filter = "луковица" Столовая & & " '"
ad1.Recordset.Fields ( "статус"). Value = Удалить
ad1.Recordset.Fields ( "лампа"). Value = Удалить
ad1.Recordset.Fields ( "типа"). Value = Удалить
ad1.Recordset.Update
ad1.Recordset.Filter = adFilterNone

Этот код работает правильно и удаления записей из ряда.Однако проблема заключается в так как "Столовая" строка находится в середине таблицы, после удаления не будет пустых строк в середине таблицы.Мне не нужно иметь пустых строк.Мне нужно перенести другие записи по одному после удаления строки.Как я могу это сделать.Что я должен добавить к этому коду?
PLS помочь мне
Thanx

 

[GSM Man]

Попробуйте удалить строку, используя команду "ad1.Recordset.Delete" после лета применить фильтр.

 

[kas1]

Thanx.она работает правильно