Error en consulta de seleccion

[amnig]

Porfa necesito una ayudita: Tengo creado un cuadro combinado en un formulario
que en teoria me debe servir para yo seleccionar el "Cliente" y entonces el
me sacaria todos los datos que tengo de este. El problema es que me sale este
error:
-----------
Private Sub Cuadro_combinado16_AfterUpdate()
' Buscar el registro que coincida con el control.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[Código]) = " & Str(Me![Cuadro combinado16])
Me.Bookmark = rs.Bookmark
End Sub
--------------


Private Sub Cuadro_combinado16_AfterUpdate() <= esto me aparece marcado


rs.FindFirst "[Código]) = " & Str(Me![Cuadro combinado16]) <= esto es lo
que me aparece marcado

El valor del campo es un TEXTO Y EN EL CÓDIGO TENGO DEFINIDA UNA "MASCARA DE ENTRADA : >>>L"

Me podeis decir algo?
Gracias-Amnig

[Teri]

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