窗体重复输入的问题请老师解答

蒋老师你好：新年好！谢谢您再次回复赐教。我按您的方法葫芦画瓢可是系统提示我:“运行错误，至少有一个参数没有指定值。”我是初学者，粗浅错误不断。麻烦老师再看看。以下是代码贴图：

Private Sub Command195_Enter()
If IsNull(Me.送样编号) Then
MsgBox "请先录入！", 64, "系统提示"
Me.送样编号.SetFocus
Exit Sub
End If
Dim Rec1 As New ADODB.Recordset
Rec1.Open "SELECT 粒度检验数据录入.送样编号 FROM [粒度检验数据记录]", CurrentProject.Connection, adOpenKeyset, adLockOptimistic-----------------------------------------------（此行系统黄线标出）
If Rec1.RecordCount <> 0 Then
  Rec1.MoveFirst
    For k1 = 1 To Rec1.RecordCount
        If Rec1!送样编号 = Me.送样编号 Then
          MsgBox "" & Me.送样编号 & "已存在！", 64, "系统提示"
              Set Rec1 = Nothing
              Me.送样编号 = Null
              Me.送样编号.SetFocus
             Exit Sub
           Else
            Rec1.MoveNext
        End If
    Next k1
   
ZJ:
      With Rec1
        .AddNew
        !送样编号 = Me!送样编号
        .Update
        .Close
      End With
MsgBox "" & Me.送样编号 & "已添加完毕！", 64, "系统提示"
        Me.送样编号 = Null
        Me.送样编号.SetFocus
Else
   GoTo ZJ
End If
End Sub