INFO: AbsolutePosition Property with JET Databases in ADO

Steps to Reproduce Behavior

1. Create a Standard EXE project in Visual Basic. Form1 is created by default.
2. Add a reference to the Microsoft ActiveX Data Objects Library.
3. Add a command button to the form and place the following code in the Click event of the button:

      Dim cn As New ADODB.Connection
      Dim rs As New ADODB.Recordset
   
      cn.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security " & _
      "Info=False;Data Source=C:\Program Files\Microsoft Visual " & _
      "Studio\VB98\Nwind.mdb"
   
      'Uncomment the lines below, and comment the lines above, 
      'to test with Jet OLE DB 4.0,
      'cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security " & _
      '"Info=False;Data Source=C:\Program Files\Microsoft Visual " & _
      '"Studio\VB98\Nwind.mdb"
   
      'Or uncomment the below line to get the correct AbsolutePosition 
      'value rs.CursorLocation = adUseClient.
      rs.Open "select * from employees", cn, adOpenKeyset
   
         Debug.Print "There are " & rs.RecordCount & " records in employees"
   
      Debug.Print "AbsolutePosition is " & rs.AbsolutePosition
   
   					

4. Run the code to test the project. Using the Microsoft Jet OLE DB Provider 3.51, note that the AbsolutePosition property returns -1 (adPositionUnknown) when the CursorLocation is set to server. Using the Microsoft Jet OLE DB Provider 4.0 or later, or using a client-side cursor, the AbsolutePosition property correctly returns 1.