ændringer af en række records, vha af recordsæt

Jeg vil gennem gå en række records og ændre 1 kolonne i dem, men når programmet køre koden, så kommer den til .EOF og siger Object invalid or no longer set, jeg er sku lidt på bar bund med hvad jeg skal gøre.
Her er min kode, den kommer til Do While.

Dim retur As String
   
    Dim Dbs As DAO.Database
    Dim rst As DAO.Recordset
   
    retur = "SELECT * FROM udlaansspecifikation WHERE udlaansid = " & Me.udlaansid
   
    Set Dbs = CurrentDb
    Set rst = Dbs.OpenRecordset(retur)
    With rst
        If .RecordCount > 0 Then
            .MoveFirst
            Do While Not .EOF
                .Edit
                !returneret = 1
                .Update
                .Close
           
            .MoveNext
          Loop
        End If
    End With