accsess databesi for next ile update etmek

[burhancavus61]

Access databesi aşağıdaki kodlarla güncellemek istiyorum fakar for next döngüsünü yapamadım. Tek satırı güncelliyor gerisini güncellemiyor. İ değişkenini nasıl kullanacağımı bulamadım bikaç deneme yaptım fakat olmadı. Aşağıdaki sorgulara göre tek satırda sorun yok iş döngüye gelince o kısmı beceremedim.

Private Sub CommandButton54_Click()
If Me.TextBox123.Text = "EVET" Then
    MsgBox ("Dönem Kilitli hesaplatma yapamazsınız."), vbCritical
Else
    If Me.ComboBox2 = "" Then
    MsgBox ("İHALE KAYIT NO BOŞ OLAMAZ")

    ElseIf Me.ComboBox10 = "" Then
    MsgBox ("HAKEDİŞ NO BOŞ OLAMAZ")

    Else

    Dim Baglan As New Connection
    Dim rs As New Recordset
    Dim rs2 As New Recordset
    Dim rsx As New Recordset

    Baglan.Open "Provider=Microsoft.Ace.Oledb.12.0;data source=D:\A_F_Fark\master.accdb;"
    
    sorgu = "select * from hakedis where iknno='" & Me.ComboBox2.Text & "' And hakedisno = " & CDbl(Me.ComboBox10.Value)
    rs.Open sorgu, Baglan, adOpenKeyset, adLockPessimistic
    
    sorgux = "select count(hakedisno) from hakedis where iknno='" & Me.ComboBox2.Text & "' And hakedisno = " & CDbl(Me.ComboBox10.Value)
    rsx.Open sorgux, Baglan, adOpenKeyset, adLockPessimistic
    
    rs2.Open "select * from aracparki where plaka='" & rs.Fields(4) & "'", Baglan, adOpenKeyset, adLockPessimistic    
    rs.Update

For i = 1 To rsx(0)
    rs.Fields(7) = rs2.Fields(6)  'YAKIT TÜRÜ
Next i

    rs.Update
    rs.Close
    rs2.Close

    rsx.Close
    Baglan.Close
    End If

End If
Call hakedisgetir
End Sub