HVorfor ænder den det hele

Hej alle sammen har et lille problem, når jeg køre denne ænder den alle uanset om der står noget eller ej i Felte Telefon_nr

Dim adr
Dim post1
Dim sted
Dim sidste
Dim virk


DoCmd.GoToRecord , , acLast
sidste = Me!ID
virk = "ja"
DoCmd.GoToRecord , , acFirst

Do While virk = "ja"

adr = Null
post1 = Null
sted = Null

adr = Me!Adresse
post1 = Me!Postnr
sted = Me!Stednavn
Me!Telefon_nr = adr & ", " & post1 & ", " & Stednavn

If sidste = Me!ID Then
virk = "nej"
End If
DoCmd.GoToRecord , , acNext


Loop

End Sub