Visual Basic - AYUDA URGENTE PF!!

Alguien m podria decir pk m sale el error "Update o CancelUpdate sin AddNew o Edit" en esta alta????

Gracias y saludos!


Sub Alta()
On Error Resume Next
rs.AddNew
rs.Fields(0).Value = txtCodi.Text
rs.Fields(1).Value = txtTit.Text
rs.Fields(2).Value = txtTitorig.Text
rs.Fields(3).Value = txtProd.Text
rs.Fields(4).Value = txtDur.Text
rs.Fields(5).Value = txtEdad.Text
rs.Fields(6).Value = cmbGen.Text
rs.Fields(7).Value = txtSinop.Text
rs.Fields(8).Value = cdPelis.FileName
rs.Update
If Err.Number <> 0 Then
MsgBox Error
Else
MsgBox "Se ha realizado satisfactoriamente el alta de la película.", vbInformation, "ALTA CORRECTA!!"
txtCodi.Text = ""
txtTit.Text = ""
txtTitorig.Text = ""
txtProd.Text = ""
txtDur.Text = ""
txtEdad.Text = ""
txtSinop.Text = ""
End If
End Sub

Nadie te puede decir con exactitud por que te sale el error de actualización si no conoce los campos que empleas, BD(ACCESS O SQL), atributos de cada campo, tamaño , tipo , extensión, detalles de la interface donde los ingresas al adicionar o donde los editas, textbox o grid, tamaño definido de los campos en los textboxt(maxlength), etc.
verifica bien estos detalles y luego consultas