Refresh - ????

[Jew]

Добрый день! Вот процедура, в которой при удалении строки из DataGrid подразумевается обновление DataGrid. Но обновление происходит только после повторного нажатия на кнопку, а соответственно меня это не устраивает (хотелось бы чтобы при нажатии кнопки, скажем "Применить", сразуже происходило обновление записей и то, что уже удалили не присутствовало).
У кого-нибудь есть соображения по этому поводу???

Код: Выделить всё

Private Sub Command2_Click()
Dim conn As New adodb.Connection
conn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Mode=ReadWrite;DSN=База Данных MS Access;DBQ=C:\My_Project\DB.mdb;DefaultDir=C:\My_Project;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;UID=admin;"
DG1.RowBookmark (DG1.Row)
conn.Open
conn.Execute "DELETE FROM PostTab WHERE IDPost =" & DG1.Text
frmPost.Refresh
DG1.Refresh
adodc1.Refresh
End Sub