sql Update語句錯誤

sql Update語句錯誤
代碼如下：
Dim rs As ADODB.Recordset
    Dim sql2 As String
   
    If Trim(BarCode.Text = "") Then                              '掃描條碼框為' ',提示
        MsgBox "没有掃描條碼，请重新掃描！", vbOKOnly + vbExclamation, "警告"
        BarCode.SetFocus
    ElseIf Trim(Len(BarCode.Text) <> 16) Then                  '掃描條碼長度不是16個字符,提示"掃描條碼長度錯誤，請重新掃描條碼！"
            MsgBox "掃描條碼長度錯誤，請重新掃描條碼！", vbOKOnly + vbExclamation, "警告"
            BarCode.SetFocus
            BarCode.Text = ""                                  '"Barcode"清空
            Exit Sub
    Else
      &nbs