Problemer med optælling på recordset

Når jeg forsøger at lave en optælling på antal valgte records i nedenstående returnerer den altid værdien 1 for i.

Set UheldsRS = Uheldsdatabase.OpenRecordset("SELECT * FROM " & Tabel & " order by X_KOORDINAT, Y_KOORDINAT")
    Do While UheldsRS.EOF = False
        X = UheldsRS("X_KOORDINAT")
        X_min = X - Buffer
        X_max = X + Buffer
        Y = UheldsRS("Y_KOORDINAT")
        Y_min = Y - Buffer
        Y_max = Y + Buffer
        SQL = "Select * from " & Tabel & " where X_KOORDINAT BETWEEN " & X_min & " AND " & X_max & " AND Y_KOORDINAT BETWEEN " & Y_min & " AND " & Y_max
        i = Uheldsdatabase.OpenRecordset(SQL).RecordCount
        SQL = "UPDATE " & Tabel & " set Antal = " & i & " Where X_KOORDINAT BETWEEN " & X_min & " AND " & X_max & " AND Y_KOORDINAT BETWEEN " & Y_min & " AND " & Y_max
        Uheldsdatabase.Execute SQL
        UheldsRS.MoveNext
    Loop


Hvad er det lige der går galt. Er det fordi jeg har to recordset åbne på den samme tabel?