用vb6.0编写的修改程序没有反应，求指点

我试着编写了一段修改程序,如下;
Private Sub Command4_Click()
On Error GoTo errorhandler:
If Text1.Text <> "" Then
Adodc1.RecordSource = "select*from 库存 where 货物编号 =" & Text1.Text
Adodc1.Refresh
Adodc1.Recordset.Fields("货物编号") = Text1.Text
Adodc1.Recordset.Fields("货物名称") = Text2.Text
Adodc1.Recordset.Fields("库存量") = Text3.Text
Adodc1.Recordset.Fields("单位") = Text4.Text
Else
MsgBox "货物编号是主索引字段，不能为空", , "错误提示"
End If
Exit Sub
errorhandler: MsgBox "货物编号是主索引，不能重复", , "错误提示"
End Sub
但是运行后，对内容修改后怎么没反应啊，还是原来的内容，这个程序好像没反应似的，哪位大侠帮忙解释一下啊！不胜感激