Gennemløb alle records i tabel og ret records

Hvor er det lige det går galt for mig. Jeg har en tabel kaldet "PRODUCT", i denne tabel har jeg et felt der hedder "NAME", men de enkelte records i NAME er forkert, hvis ÆØÅ indgår i teksten.

Jeg vil derfor gennemløbe alle records i feltet NAME og rette ÆØÅ, men af en eller anden årsag så opdateres mine records ikke. Hvad er det lige jeg gør galt eller mangler i min kode?

Som det forhåbentlig ses, så er der en funktion der hedder FixDk og denne funktion virker godt nok og returnere strings hvor ÆØÅ er rettet, men i proceduren ændres det ikke - Hvorfor?

--------------------------------------------------------
Sub CorrectChar()

Dim rsRecordSet As Recordset
Dim dbDatabase As Database

On Error Resume Next

Err = 0

Set dbDatabase = CurrentDb
Set rsRecordSet = dbDatabase.TableDefs("PRODUCT").OpenRecordset

If Err Then
  MsgBox "Error : " & Error(Err)
  Exit Sub
End If

rsRecordSet.MoveFirst
While rsRecordSet.EOF = False

' HER FORVENTEDE JEG EGENTLIG AT RECORDS VILLE BLIVE RETTET   
  rsRecordSet.Fields("NAME").Value = FixDK(rsRecordSet.Fields("NAME").Value)
  'FixDK (rsRecordSet.Fields("MANUFACTURER").Value)
   
  rsRecordSet.MoveNext
Wend

End Sub

--------------------------------------------------------
Private Function FixDK(ByVal sInput As String) As String

Dim iPos As Integer
Dim sOutput As String

If sInput = "" Then
  FixDK = ""
End If

sOutput = ""
For iPos = 1 To Len(sInput)
  Select Case Mid(sInput, iPos, 1)
    Case "’"
      sOutput = sOutput & "Æ"
    Case "", "›"
      sOutput = sOutput & "Ø"
    Case ""
      sOutput = sOutput & "Å"
    Case Else
      sOutput = sOutput & Mid(sInput, iPos, 1)
  End Select
Next iPos

FixDK = sOutput

End Function