[blue] Dim Cri As String
[b]Cri[/b] = "[[purple][B][I]Your!PrimarykeyName[/I][/B][/purple]] = " & Me![[purple][B][I]Your!PrimarykeyName[/I][/B][/purple]]
Me.OrderByOn = False
Me.OrderBy = "Client DESC"
Me.OrderByOn = True
Me.Recordset.FindFirst [b]Cri[/b][/blue]