Возвращение к условию при возникновении ошибки - VB

Формулировка задачи:

Добрый день! Есть вот такой код:

On Error GoTo er:
        G = MsgBox("Г“Г¤Г*Г«ГЁГІГј Г§Г*ГЇГЁГ±Гј?", vbQuestion + vbYesNo, "ГЏГ®Г¤ГІГўГҐГ°Г¤ГЁГІГҐ Г¤ГҐГ©Г±ГІГўГЁГҐ")
        If G = vbYes Then
            Me.MousePointer = vbHourglass
            Me.Enabled = False
            SetAttr VSFlexGrid1.TextMatrix(VSFlexGrid1.Row, 4), vbNormal
            Set rs = New ADODB.Recordset
            rs.CursorType = adOpenDynamic
            rs.CursorLocation = adUseClient
            rs.Open "DELETE FROM tbl_Files " & "WHERE ID = " & VSFlexGrid1.TextMatrix(VSFlexGrid1.Row, 0), conn, adOpenDynamic, adLockBatchOptimistic
            b = MsgBox("Г“Г¤Г*Г«ГЁГІГј Г±Г±Г»Г«Г*ГѕГ№ГЁГ©Г±Гї ГґГ*Г©Г« Г*Г* Г¤Г*Г*Г*ГіГѕ Г§Г*ГЇГЁГ±Гј?", vbQuestion + vbYesNo, "ГЏГ®Г¤ГІГўГҐГ°Г¤ГЁГІГҐ Г¤ГҐГ©Г±ГІГўГЁГҐ")
                If b = vbYes Then
                    Kill VSFlexGrid1.TextMatrix(VSFlexGrid1.Row, 4)
                    rs.Open "DELETE FROM tbl_Files WHERE Path = '" & VSFlexGrid1.TextMatrix(VSFlexGrid1.Row, 4) & "'", conn, adOpenDynamic, adLockBatchOptimistic
                End If
            MsgBox "Г‡Г*ГЇГЁГ±Гј ГіГ¤Г*Г«ГҐГ*Г* ГіГ±ГЇГҐГёГ*Г®!", vbInformation, "Г‘Г®Г®ГЎГ№ГҐГ*ГЁГҐ"
            Me.MousePointer = vbNormal
            Me.Enabled = True
        End If
        Call SQLL
        Set rs = Nothing
Exit Sub
er: MsgBox Err.Description, vbCritical, "ГЋГёГЁГЎГЄГ* ГўГ»ГЇГ®Г«Г*ГҐГ*ГЁГї Г§Г*ГЇГ°Г®Г±Г*": Me.Enabled = True: Me.MousePointer = vbNormal: Exit Sub

Вопрос, если программа работает до условия:

Kill VSFlexGrid1.TextMatrix(VSFlexGrid1.Row, 4)

И тут вдруг программа не смогла достучаться до файла на сервере, произойдет ошибка, и остановка работы процедуры, но несколькими строками выше, запись уже будет удалена, как в данной ситуации можно застраховаться от такой ошибки?

Решение задачи: «Возвращение к условию при возникновении ошибки»

textual
                            Листинг программы 
                        

                            On error resume next '<<<<<Без этой инструкции программа остановится
x= x / 0
if err.Description="Overflow" tnen
  x=0
else...
                        