Visual Basic - operacion no valida para este tipo de objetos

Me da problemas y no lo comprendo, he intentado cambiarle el tipo de variable xo se me cuelga de otro lao. Bye

Private Sub ComboBusquedaPeli_Click()
' Modo de busqueda de la pelicula por codigo
Dim codaux As String
codaux = "CODIGO = " & Val(ComboBusquedaPeli.Text)
DataPELI.Recordset.FindFirst (codaux) <---PROBLEMA

'Se muestra el codigo de la pelicula seleccionada en su correspondiente caja de texto
txtcodpeli.Text = DataPELI.Recordset.Fields("CODIGO")
End Sub

dicho problema lo da en " DataPELI.Recordset.FindFirst (codaux) "

Lo podeis poner así:

DataPELI.Recordset.FindFirst "CODIGO =" & Val(ComboBusquedaPeli.Text)
txtcodpeli.Text = DataPELI.Recordset.Fields("CODIGO")

y eliminar la variable "codaux"

si le pongo eso sigue y elimino codaux sigue sin ir, da el mismo problema jeje

DataPELI.Recordset.FindFirst "CODIGO =" & Val(ComboBusquedaPeli.Text)
txtcodpeli.Text = DataPELI.Recordset.Fields("CODIGO")

me parece que lo que falta a ese codigo es que antes se coloque un MoveFirst antes del FindFirst, podría ser eso.... despues evalúa el EOF si es True es xq no encontro, ni modo no?... espero sirva