VBA в Access

Private Sub Добавить_поставщика_Click()
On Error GoTo Err_Добавить_поставщика_Click
With CodeContextObject
    Dim i As Integer
       DoCmd.GoToRecord acForm, "Поставщики", acFirst
f:     DoCmd.OpenForm "Поставщики", acNormal, "", "", , acNormal
       DoCmd.FindRecord Forms!Поставщики!Наименование, acEntire, True, , True, acCurrent, True
       DoCmd.GoToControl "[Наименование]"
       Tabs!Поставщики_таб!Наименование = Forms!Поставщики!Код + Forms!Поставщики!Наименование + Forms!Поставщики!Город
       DoCmd.Close acForm, "Ввод количества"
       DoCmd.GoToRecord acTab, "Поставщики_таб", acNext
       If Forms!Поставщики!Наименование = 0 Then
          Exit Sub
          Else: GoTo f:
      End If
  End With
Exit_Добавить_поставщика_Click:
    Exit Sub
Err_Добавить_поставщика_Click:
    'MsgBox Err.Description
    Resume Exit_Добавить_поставщика_Click
End Sub