Updating To ADO Recordset

Newbie to SQL Server here.

I'm opening a Access 2003 form with a ADO recordset with the following code;


Function SetFloaterDataSource()

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

RecSourceFloater = "SELECT tbl_UserVarHSTUFloatStatByEelink.* " _
& "From tbl_UserVarHSTUFloatStatByEelink " _
& "WHERE (((tbl_UserVarHSTUFloatStatByEelink.idCalendar)=" & MyTSCalcIdCal & "));"

'Use the ADO connection that Access uses
Set cn = CurrentProject.AccessConnection

'Create an instance of the ADO Recordset class, and
'set its properties
Set rs = New ADODB.Recordset
With rs
Set .ActiveConnection = cn
.Source = RecSourceFloater
.LockType = adLockOptimistic
.CursorType = adOpenKeyset
.CursorLocation = adUseServer
.Open
End With

'Set the form's Recordset property to the ADO recordset
Set WeekDay.Form.Recordset = rs

Set rs = Nothing
Set cn = Nothing

End Function

When I edit the form I noticed that I could not go back to a recently added record because it was not available, so I concluded that I had to force an update, which I do in the before update event of my form, as follows;

'Update the underlying recordset
Me.Recordset.Update

It works great on my test server here, but when I instal it on the SQL Server 2000 - I get an error 'EOF' or 'BOF' is true......... so it fails

Any thougths?