以前一直使用的是ADODC现在在学着用语句，所以很多还没搞明白，下面的在执行完“rs.Fields("面积") = Trim(Text4.Text)”后没有执行rs.update直接跳到end sub怎么回事？请帮我看看！指点一下，谢谢！

Set cn = New adodb.Connection
Set rs = New adodb.Recordset
If cn.State = adStateOpen Then cn.Close
If rs.State = adStateOpen Then rs.Close
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & App.Path & "\fyxx.mdb;Jet OLEDB:Database Password=88 "
sql = "select * from czfy "
rs.Open sql, cn, 1, 3
    rs.AddNew
    rs.Fields("编号") = Trim(Label37.Caption)
    rs.Fields("面积") = Trim(Text4.Text)
    rs.Update
 MsgBox "数据保存成功！", , "系统提示"
Call Form_Load
Check1.Value = 0
Check2.Value = 0
Check3.Value = 0
Check4.Value = 0
Check5.Value = 0
Check6.Value = 0
Check7.Value = 0
Check8.Value = 0
Check9.Value = 0
end  sub


[ 本帖最后由 wxflw 于 2012-11-8 10:01 编辑 ]

关联代码

估计是 错误处理 程序发挥了作用。你把错误捕捉程序停用再看看有什么错误提示？

错误提示出来了：
 实时错误，‘ -2147217887(80040e21)':  
       多不OLE DB 操作产生错误。如果可能请检查每个OLE DB 状态值。没有工作被完成。
这是什么错误？        

apptp = " " & App.Path & " \ 图片 \ " & Trim(Text1.Text + Text2.Text + " - " + Text3.Text) & ""
rs.Fields("图片") = apptp
这样写是不是不可以？因为apptp = " " & App.Path & " \ 图片 \ " & Trim(Text1.Text + Text2.Text + " - " + Text3.Text) & "" 有一个" & App.Path & "路径是不是这个问题？
如果是这个的问题该怎么写？

问题已解决，是我数据库的问题图片字段我想存路径的，但是我把字段类型设置成OLE类型了！