Trim Problem

Jeg kan ikke få Trim til at virke når jeg vil opdatere min Access database.
Det virker fint når jeg blot udskriver StrNavn, og ved at tjekke med Len kan jeg se at den er trimmet. Men i databasen sejler det hele rundt efter at den bliver indsat!!
Hvad sker der?


Function Erstat(TempString)
  TempString = Replace(TempString, ":", "")
  TempString = Replace(TempString, "-", "")
  TempString = Trim(TempString)
  Erstat = TempString
End Function

StrNavn = Erstat(Request.Form("navn"))



Response.Write StrNavn & " " & Len(StrNavn)