请教批量入库的问题

我想将炉号为Text7.Text的数据成品档案的发货否更改为是以下代码怎么改才合适

 If ckcp.Value Then
  sql = "select * from 成品档案 where 炉号 ='" + Trim(Text6.Text) + "'"
  If sql <> "" Then
  cnn.Execute "update 成品档案 set 发货否='" + Trim(Text7.Text) + "'from " & sql
  MsgBox "记录添加成功！", , "成品管理系统"
  Adodc2.Refresh
  End If
  End If
 

VB code

If ckcp.Value Then
    sql=" update 成品档案 set 发货否='"& trim(text7.text) &"' where 炉号='"& trim(text6.text &"'"
    cnn.Execute sql
    MsgBox "记录添加成功！", , "成品管理系统"
End If