Access 2000 Recordset issues

[Nick]

I am using the following code (to write data to a file)
in the OnClick property of a button:

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

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

rs.Open "Select * from .....
Do While rs.EOF = False
--
--
WriteLine(rs.AbsolutePosition)
WriteLine(rs.RecordCount)
rs.MoveNext
Loop
-------------------------------------
I'm not getting the expected values for AbsolutePosition
and RecordCount. These come up as 1 for all records when
I run this app/code in Access 2000 (windows ME). The
code works fine on my other machine w/ Access 2002 (XP
professional)..... Any suggestion on how can I get the
correct values in A2000?

Thanks in advance.