Opdatering af recordset

Jeg har problemer med at opdatere mine tabeller og forespørgsler i min Access DB.

Jeg opererer med tre db forbindelser:

Data1 og data2 er forespørgsler mens data3 er en kundetabel.

Jeg har så en \"udvælg\" knap der udvælger 4 kunder og smider dem over i et array af labelfelter, samt sætter feltet \"Udvalgt\" til \"true\".

Jeg har ligeledes en \"Reset\" knap der dels fjerner indholdet af labelarrayet og dels sætter \"Udvalgt\" til \"false\" igen.

Men jeg har problemer med at få de forskellige recordsets ordentligt opdateret.

Her kommer koden:


******************************************************

Option Explicit

Private Sub cmdReset_Click()

Dim i As Integer

Do While Not Data3.Recordset.EOF
   
    If Data3.Recordset(\"Udvalgt\") = True Then
        Data3.Recordset.Edit
        Data3.Recordset(\"Udvalgt\") = False
        Data3.Recordset.Update
    End If
    Data3.Recordset.MoveNext
Loop

For i = 0 To 3
    lblMaGrøn(i) = \"\"
    lblTiGrøn(i) = \"\"
Next

End Sub

Private Sub cmdUdvælg_Click()

Dim i As Integer

For i = 0 To 3
    If Not Data1.Recordset.EOF Then
        lblMaGrøn(i) = Data1.Recordset(\"navn\")
        Data1.Recordset.Edit
        Data1.Recordset(\"Udvalgt\") = True
        Data1.UpdateRecord
        Data1.Recordset.MoveNext
    End If
Next i

\'Data2.Recordset.MoveFirst
For i = 0 To 3
    If Not Data2.Recordset.EOF Then
        lblTiGrøn(i) = Data2.Recordset(\"navn\")
        Data2.Recordset.Edit
        Data2.Recordset(\"Udvalgt\") = True
        Data2.UpdateRecord
        Data2.Recordset.MoveNext
    End If
Next i

End Sub


******************************************************