在窗体上向表中添加数据，用if语句，多次添加不进行判断

按以下修改的语句进行设置命令按钮的单击事件

Private Sub Command10_Click()
On Error GoTo ERR_
Set conn = CurrentProject.Connection
Set rs = New ADODB.Recordset
rs.Open "进货表", conn, adOpenDynamic, adLockOptimistic
If IsNull(Me.Cbo_kind) Or IsNull(Cbo_name) Or IsNull(Me.Txt_sl) Or IsNull(Txt_price) Then
MsgBox "请把数据填写完整！"
End If '原来的语句
Else '新增语句
rs.AddNew
 rs!类别 = Me.Cbo_kind.Column(0)
 rs!名称 = Me.Cbo_name.Column(0)
 rs!数量 = Me.Txt_sl.Value
 rs!单价 = Me.Txt_price.Value
rs.Update
rs.Close
MsgBox "数据添加成功！"
Me.Cbo_kind.Value = ""
Me.Cbo_name.Value = ""
Me.Txt_sl.Value = ""
Me.Txt_price.Value = ""
End If '新增语句
EXIT_:  Exit Sub
ERR_: MsgBox Err.Description
Resume EXIT_
End Sub