No sé si son problemas de transcripción, pero en lo que has escrito tienes dos cosas mal
Private Sub Cuadro_combinado16_AfterUpdate()
' Buscar el registro que coincida con el control.
Dim rs As Object
Set rs = Me.RecordsetClone ' esto va todo junto
rs.FindFirst "[Código] = " & Str(Me![Cuadro combinado16]) ' te sobra el paréntesis que habías puesto después de [Código]
Me.Bookmark = rs.Bookmark
End Sub
Un saludo, y espero que fuera eso
