Problem med "Metoden Update eller CancelUpdate"

Jeg får denne fejl i min kode:
"Metoden Update eller CancelUpdate er brugt uden AddNew eller Edit"
Når jeg kigger på koden, it kinda makes sense......men hvor skal jeg ændre?

Public Function OpretPalleNr(PalleTalPartiX As Long) As String
Dim PalleNrX As Variant
Dim PS As New ADODB.Recordset
Dim PalleTalTaellerX As Long
  PS.Open "PalleTal", CurrentProject.Connection, adOpenKeyset, adLockPessimistic, adCmdTable
  PS.Find ("palletalparti =" & PalleTalPartiX)
  If PS.EOF = True Then
    PS.AddNew
    PalleTalTaellerX = 1
    PS("PalleTalParti").Value = PalleTalPartiX
    PS("PalleTalParti").Value = PalleTalPartiX
    PS("PalleTalTaeller").Value = "000"
  End If
  PalleTalTaellerX = Val(PS("PalleTalTaeller"))
  PalleTalTaellerX = PalleTalTaellerX + 1
  PalleNrX = LTrim$(Str(PalleTalTaellerX))
  Select Case Len(PalleNrX)
    Case Is = 1
      PalleNrX = PalleTalPartiX & "00" & PalleNrX
    Case Is = 2
      PalleNrX = "0" & PalleNrX
  End Select
  PS("PalleTalTaeller").Value = PalleNrX
  PS.Update
  PS.Close
  Set PS = Nothing
  OpretPalleNr = PalleNrX
End Function

Hvis PS.EOF = False er det fordi partiet eksisterer og så skal der ikke oprettes et nyt parti, men så kommer jeg jo aldrig ind i If-løkken, hvilket vil sige, at PS.AddNew aldrig afvikles. Så står PS.Update jo alene, hvilket den ikke kan og derfor får jeg fejlen.
What to do?