RecordLock problem (vistnok)

Jeg befinder mig nede i en underformular der har med prøvetagning af fisk at gøre, jeg skal have afgjort hvor mange fisk af samme art, længde, og område der alerede er taget Otolither (Øresten) af. Hvis der er findes der en eller records i en undertabel med egenskaben "Otolith" i et af felterne.

Den rutine der går ned og tæller ser således ud:

Private Sub SetCountOtolith(Year, Species, NAFO)

Dim cn As Connection
Dim rs As ADODB.Recordset

Set cn = CurrentProject.Connection
Set rs = New ADODB.Recordset

rs.Open SQLStringIndividualSampleCount(Year, Species, NAFO, "Otolith"), cn, adOpenDynamic, adLockOptimistic

Do While Not rs.EOF

Sex = rs!Sex
Length = rs!Length

Select Case Sex
    Case "M"
        OtolithCountsM(Length) = OtolithCountsM(Length) + 1
    Case "F"
        OtolithCountsF(Length) = OtolithCountsF(Length) + 1
    Case Else
        OtolithCountsU(Length) = OtolithCountsU(Length) + 1
End Select

rs.MoveNext
Loop

rs.Close
Set rs = Nothing

End Sub


SQLStringIndividualSampleCount laver en SQL der udvælger de korekte records der ligger i flere forskellige tabeller.

Når denne rutine har kørt så retter Acces selv den record jeg står i så den bliver lig med den sidste record der har en prøve af typen "Otolith", det er ikke fordi den flytter record, den kopierer den forige og overskriver de værdier jeg havde før.

Hvad #&%"!! laver den, og hvordan løser jeg problemet?

Jeg har prøvet at lege med adOpenStatic i stedet men det ser ikke ud til at gøre nogen forskel.