So far I have been unable to get it to work.  It always says it is not
implemented in the present interface.

Is it merely not implemented, as it says, or am I doing somethimng
wrong.  According to the MSDN site it aught to work.

If anyone can help I would be most grateful

Geoff

   Dim Cnn  As New Connection
   Dim sCnn As String
   Dim Rs  As New adodb.Recordset

   Dim strSQLEmployees As String

   Cnn.Provider = "Microsoft.Jet.OLEDB.4.0"

   sdb = "C:\Temp\TestData.Mdb"

   sCnn = "Data Source=" & sdb & ";" & _
           "Jet OLEDB:Database Password=letmein"

   Cnn.CursorLocation = adUseServer
   Cnn.Mode = adModeReadWrite
   Cnn.Open sCnn

   Rs.CursorLocation = adUseServer
   strSQLEmployees = "test table"
   Rs.Open strSQLEmployees, Cnn, adOpenKeyset, adLockReadOnly, _        
        adCmdTableDirect

   If Rs.Supports(adIndex) Then
      Rs.Index = "long auto"
      Rs.Seek 2
   End If

I tried your code and it worked fine for me so there is no absolute
technical reason it won't work, it must be a detail of your setup.

I tested it with VB6 SP5, ADO 2.6 and Access 2000 SP1 on Windows 2000
SP3.

Adelle.
http://www.akemi.com.au/vb/

You proved to me that it should work and I figured it from there.

It depends on the version of the database, and not just the engine
opening it.

I converted the database to that used by Office XP and it works.

Geoff

You proved to me that it should work and I figured it from there.

It depends on the version of the database, and not just the engine
opening it.

I converted the database to that used by Office XP and it works.

Geoff