Missing Operator 1

[ZOR]

I have a missing operator message on below

Do While Not rsAllAthletes.EOF
rsJunction.AddNew
rsJunction.Fields("ID2") = rsAllAthletes.Fields("ID2")
rsTopAthletes.FindFirst ("Athlete = '" & rsAllAthletes.Fields("Athlete") & "'")
rsJunction.Fields("AthleteID") = rsTopAthletes.Fields("IDA")
rsAllAthletes.MoveNext
rsJunction.Update
Loop

The line highlighted is:

rsTopAthletes.FindFirst ("Athlete = '" & rsAllAthletes.Fields("Athlete") & "'")

Any idea, thanks

 

[Remou]

How about:

rsTopAthletes.FindFirst ("Athlete = '" & Replace(rsAllAthletes.Fields("Athlete"),"'","''") & "'")

 

[ZOR]

That fixed it, many thanks Remou, trust your well. Regards