This Code Doesn't Save the edit of my db why?

VB Code:
  1. rs.Edit

  2. FieldUpdate

  3. rs.Update

VB Code:
  1. Public Sub FieldUpdate()

  2. rs.Fields("Title") = txtTitle.Text

  3. rs.Fields("Year") = txtYear.Text

  4. rs.Fields("Source") = cboSource.Text

  5. rs.Fields("Genre") = cboGenre.Text

  6. rs.Fields("Size") = txtSize.Text

  7. rs.Fields("Actor") = txtActor.Text

  8. rs.Fields("Director") = txtDirector.Text

  9. rs.Fields("Description") = txtDescription.Text

  10. rs.Fields("OnCD") = chkCD.Caption

  11. rs.Fields("CDLocal") = txtCDLocal.Text

  12. rs.Fields("CDTitle") = txtCDTitle.Text

  13. End Sub