run-time error

Run-time error '-214767259 (80004005)'

Insufficient or incorrect key column information; too many rows affected by
update

WHY??? and WHAT IS THE SOLUTION???

My sourcecode:

Private Function EndTime()
Dim Qry As String
Qry = "Select [Tijd-van] as Start,[Tijd-tot] as EndTime,[O-ID] as
Ordernummer,[O-regel-ID] as Regel,[Bewerkings-ID] as Bewerking,[Oms] as
Omschrijving from [Tikkaart-regel] " _
& "where [Werknemer-id] = " & Me.wnID _
& " and [Datum transaktie] = #" & Me.dat & "# order by
[Tijd-van]"
AdodcEigenTijd.RecordSource = Qry
AdodcEigenTijd.Refresh
AdodcEigenTijd.Recordset.MoveLast
AdodcEigenTijd.Recordset!EndTime = Me.tijd
AdodcEigenTijd.Recordset.Update
AdodcEigenTijd.Recordset.Close
End Function



AdodcEigenTijd = link with my database