VB用update更新oracle数据问题~急急急！！！

Private Sub Command8_Click() '确定操作
   RS1.Fields("sno") = Text1.Text
  RS1.Fields("sname") = Text2.Text
  RS1.Fields("ssex") = Text3.Text
  RS1.Fields("sage") = Text4.Text  '给各字段赋值
  RS1.Update
  MsgBox ("保存成功") '给出保存成功提示
End Sub
每次有道红色尸体提示错误请各位大大帮忙分析下