急啊,好心人救救我!一个更新按钮的代码出错!

数据环境设计器dataenv中有个数据命令Student,它的连接是Con,它的数据库对象是"表",对象名是数据库里的一个表Student;有个数据命令sqlSeek,它的连接是Con,它的数据库对象是"SQL语句"select Serial,Name from Student order by Serial
一个添加按钮cmdAdd
Private Sub cmdAdd_Click()DataEnv.rsStudent.AddNewEnd Sub一个更新按钮cmdUpdate
Private Sub cmdUpdate_Click()
On Error GoTo errHandlerDim str As Stringstr = txtSerial.TextWith DataEnv.rsStudent
    .Fields("Serial") = txtSerial.Text
    .Fields("Name") = txtName.Text
    .Fields("Sex") = cboSex.Text
    .Fields("Class") = dcbClass.Text
    .Fields("Birthday") = txtBirthday.Text
    .Fields("Tel") = txtTelephone.Text
    .Fields("Address") = txtAddress.Text
    .Fields("Resume") = txtResume.Text
    .Update
End WithIf DataEnv.rssqlSeek.State = adStateClosed Then
    DataEnv.rssqlSeek.Open
End IfCall RefreshGrid'刷新数据表格
DataEnv.rssqlSeek.MoveFirst
DataEnv.rssqlSeek.Find "Serial='" & str & "'"errHandler:
    MsgBox Err.Description, vbCritical, " 错误"
    
End Sub
运行的时候,为什么会提示"路径/文件访问错误!"该怎么改呢?