急求好心人帮我检查一段添加记录的代码，非常非常感谢

库存管理源文件 源代码

我要做一个简单的库存数据库，但是入库记录表的添加记录的按纽代码一直有错误

求好心人帮忙看一下啊。

一直说超过7000字，所以代码放到附件中了

问题有二：1，代码本身报错（包括rst.update） 2，输入时每次都提示 入库记录表的仓库名称字段不能为空

Option Compare Database
Option Explicit

Private Sub 添加入库记录_Click()
    Dim sql As String
    Dim rst As ADODB.Recordset
    Dim number As Integer

     If IsNull(Me![入库日期]) Then
        MsgBox "请输入入库日期"
        DoCmd.GoToControl "入库日期"
    ElseIf IsNull(Me![入库ID]) Then
        MsgBox "请输入入库ID"
        DoCmd.GoToControl "入库ID"  
     Else
        sql = "select * from 样品信息 where"
        sql = sql & "[样品ID]=" & Me![样品ID]
        Set rst = New ADODB.Recordset
        rst.ActiveConnection = CurrentProject.Connection
        rst.CursorType = adOpenDynamic
        rst.LockType = adLockOptimistic
        rst.Open sql
        If Not (rst.EOF) Then 
            sql = "select * from 入库记录表"
            Set rst = New ADODB.Recordset
            rst.ActiveConnection = CurrentProject.Connection
            rst.CursorType = adOpenDynamic
            rst.LockType = adLockOptimistic
            rst.Open sql
                With rst
                    .AddNew
                    !入库ID = Me![入库ID]
                    !仓库ID = Me![仓库ID]
                    !