Ошибка в ADO, Сохранение записи - VB

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

Здравствуйте... Вопрос в конце кода...

Private Sub Сохранить(Код as Long)
On Error GoTo bay
Dim RS As ADODB.Recordset
    If Not CON Is Nothing Then
        If CON.State = 0 Then Set CON = Соединение()
    Else
        Set CON = Соединение()
    End If
    Set RS = New ADODB.Recordset
    rs.Open 'select * from Таблица where [Код] =' & Код,  CON, adOpenKeyset, adLockOptimistic
    With rs
        If Код = 0 Then .AddNew
        .Fields('Имя').Value = TXT(0) & ''
        .Fields('Прочее').Value = TXT(1) & ''
        .Update
    End With
    myКод = RS.Fields('Код').Value
    If Not rs Is Nothing Then
        If rs.State = 1 Then rs.Close
        Set rs = Nothing
    End If
Exit Sub
bay:
MsgBox Err.Description, vbExclamation
' меня интересует вот что,  в таблице не найдено поле.(Любое из 2) соответственно 
' прехрд на метку BAY... И вот тут мне не понятно. Следующий код выдает ошибку уже
' не ADO а RUN.VB (И не могу ее перехватить). Смысл в том, что в данном контексте
' RS.Close не применим  (RS.CANCELUPDETE не меняет, к этому методу тоже самое).
' Может просто Set RS=Nothing оставить. Хотя RS.STATE=1. Значит он открыт.  Иля
' я чего то не понимаю... Да если кто знает более грамотное написание такой 
' процедуры  поделитесь.. а то я такой формой пока пользуюсь. (правда оставляю тока set RS=Nothing )
    If Not rs Is Nothing Then
        If rs.State = 1 Then rs.Close
        Set rs = Nothing
    End If
 
End Sub

Решение задачи: «Ошибка в ADO, Сохранение записи»

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

                            Private Sub Заполнить()
Dim rs As ADODB.Recordset
LST.Clear
TXT = ''
On Error GoTo bay
 
    'тут проверяю конект
 
    If Not CON Is Nothing Then
        If CON.State = 0 Then Set CON = Соединение()
    Else
        Set CON = Соединение()
    End If
 
    Set rs = New ADODB.Recordset
    rs.Open 'select * from тблУслуги', CON, adOpenStatic
' тут я проверку делаю
    If rs.EOF And rs.BOF Then
        GoTo ex
    End If
 
    With rs
        Do While .EOF = False
            LST.AddItem .Fields('Имя').Value
            LST.ItemData(LST.NewIndex) = .Fields('Код').Value
            .MoveNext
        Loop
    End With
'если пусто..перехожу сюда и закрываю RS
ex:
    If Not rs Is Nothing Then
        If rs.State = 1 Then rs.Close
        Set rs = Nothing
    End If
Exit Sub
'если ошибка сюда
bay:
MsgBox Err.Description, vbExclamation
 
' а вот тут и были проблеммы, я щас ооставлю тока Set rs = Nothing
' так как  при вышезложенных появлялась та ошибка. А т.к. процедура
' однотипная у меня для всех случаев, за некоторым исклчением. То в
' процедуре на Сохранении (если ошибка с полями) нижний код выдавал
' ошибку критическую с вылетом.(adOpenStatic у меня тока на заполнение списков)
    If Not rs Is Nothing Then
        If rs.State = 1 Then rs.Close(этот метод сбоил)
        Set rs = Nothing
    End If
End Sub
                        