请教为什么关于if嵌套的问题，新建和自动累计代码本来是根据条件决定运行哪段的，为什么都运行了？请帮忙看看，谢谢！！

请教大家个问题，为什么我if嵌套的有问题，本来要求是有记录就累计，没有记录就新建一条，但是现在是既累计又新建，请帮忙看看
Private Sub Command1_Click()
     Dim sql As String
    Dim rst As ADODB.Recordset
    Dim number As Integer
    '以下程序中的 窗体1 表示"入库记录"窗体
    If IsNull(窗体1![产品代码]) Then   '如果没有选择仓库编码
        MsgBox "请选择产品代码"
       ' DoCmd.GoToControl "产品代码"
    ElseIf IsNull(窗体1![产品名称]) Then
        MsgBox "请输入产品名称"
        'DoCmd.GoToControl "产品名称"
    ElseIf IsNull(窗体1![产品规格]) Then
        MsgBox "请输入产品规格"
        'DoCmd.GoToControl "产品规格"
    ElseIf IsNull(窗体1![库存数量]) Then
        MsgBox "请选择库存数量"
        'DoCmd.GoToControl "产品数量"
    'ElseIf IsNull(窗体1![入库备注]) Then
       ' MsgBox "请输入入库备注"
       ' DoCmd.GoToControl "入库备注"
        
    Else
               
            '添加库存信息
            sql = "select * from 库存表 where[产品代码]=" & 窗体1![产品代码]
            Set rst = New ADODB.Recordset
            rst.ActiveConnection = CurrentProject.Connection
            rst.CursorType = adOpenDynamic
            rst.LockType = adLockOptimistic
            rst.Open sql
             If Not (rst.EOF) Then
               number = rst!库存数量
                number = number + 窗体1![库存数量]
                rst!库存数量 = number
                rst.Update
                sql = "出库成功1!请查看库存详细信息"
                MsgBox sql
                窗体1.Requery
                Exit Sub
            Else
                With rst
                    .AddNew
                    !产品代码 = 窗体1![产品代码]
                    !产品名称 = 窗体1![产品名称]
                    !产品规格 = 窗体1![产品规格]
                    !库存数量 = 窗体1![库存数量]
                    !备注 = 窗体1![备注]
                     End With
                rst.Update
               sql = "入库成功2!请查看库存详细信息"
                MsgBox sql
                   窗体1.Requery
                Exit Sub
            End If
           
            rst.Close
            Set rst = Nothing
            Exit Sub
            窗体1.Visible = False
            
        End If
End Sub