Access - Error 13 tiempo ejecución

Estoy trabajando en una aplicación en Access, quiero hacer una actualización en una tabla e hice la siguiente sub rutina desde Visual Basic:

Private Sub Form_AfterUpdate()
Dim db As Database
Dim rs As Recordset
If Tipo = "REVPRY" Then
Set db = CurrentDb()
Set rs = db.OpenRecordset("Test", dbOpenTable, dbAppendOnly)
rs("Id") = Id
rs.Update
rs.Close
End If
End Sub

Pero genera un error #13 de tiempo de ejecución: No coinciden los tipos

Me podría apoyar para hechar a andar esta aplicación.

Gracias y Saludos!

Daniel, con estos pequeños cambios deberá de funcionarte:

Private Sub Form_AfterUpdate()
Dim rs As DAO.Recordset
If Tipo = "REVPRY" Then
Set rs = CurrentDb.OpenRecordset("Test", dbOpenDynaset) '<--- Abrir con Dynaset
rs.Edit ' <----- Te faltaba Edit
rs!Id = Id ' <---- Esto es mejor ponerlo así
rs.Update
rs.Close: Set rs = Nothing
End If
End Sub

Si la tabla está en la Base activa no es necesario declarar db.

Saludos

Muchas gracias Enrique, si funcionó. Cualquier día me pongoen contacto contigo.

Saludos y nuevamente Gracias!