Hoe regels samenvoegen tot records en verwijzen naar vorige records in query

Public Function FillPersonID() As Long
On Error GoTo Err_FillPersonID

    Dim rst As New ADODB.Recordset
    Dim strPerson As String
    Dim lngCounter As Long
    
    rst.Open "select [level], [Waarde], PersonID from gedcom order by ID", CurrentProject.Connection, adOpenKeyset, adLockPessimistic
 
    With rst
        If .BOF And .EOF Then
            Err.Raise 64000, , "Geen records gevonden in tabel GEDCOM"
        End If
        .MoveFirst
        While Not .EOF
            If !level = 0 Then
                strPerson = !Waarde
                lngCounter = lngCounter + 1
            End If
            !PersonID = strPerson
            .MoveNext
        Wend
        .Close
    End With
    FillPersonID = lngCounter
            
        

Exit_FillPersonID:
    Exit Function
    
Err_FillPersonID:
    FillPersonID = -1
    Debug.Print Err.Number & ": " & Err.Description
    Resume Exit_FillPersonID
End Function

Public Function FillPersonID()
Dim rs As DAO.Recordset
Dim strPerson As String
    
    Set rs = CurrentDb.OpenRecordset("SELECT [ID], [Level], Waarde, PersonID FROM gedcom")
    With rs
        Do While Not .EOF
            .Edit
            If .Fields("level") = 0 Then
                strPerson = !Waarde
            End If
            !PersonID = strPerson
            .Update
            .MoveNext
        Loop
        .Close
    End With
End Function