Powiązanie textbox z indeksem rekordu z formularza

Stworzyłem formularz, w którym znajduje się 20 rekordów. Dodałem textbox, w którym pojawiać ma się wyliczona wartość. Chciałbym, żeby w każdym rekordzie formularza w textbox była inna wartość. Próbowałem zrobić pętle, ale za każdym razem nadpisuje mi wartość w textbox dla wszystkich rekordów ostatnią wyliczoną wartością.
Tutaj jest mój kod:

Private Sub Form_Open(Cancel As Integer)
Dim rs As DAO.Recordset
Dim vSuma As Integer
Dim kryterium As String
Dim x As Variant
Set rs = CurrentDb.OpenRecordset("Tabela", dbOpenSnapshot)
For x = 1 To 20
    kryterium = "ID = " & x
    rs.FindFirst kryterium
    Do Until rs.NoMatch
        vSuma = vSuma + rs!Wartosc
        rs.FindNext kryterium
    Loop
    TextBox = vSuma
    vSuma = 0
Next x
End Sub

W jaki sposób można powiązać textbox z indeksem rekordu?