Listing 1: Code That Shows How to Reset the ClientLocation Property
      Dim objConn As ADODB.Connection
      Dim objRS As ADODB.Recordset
    ' Open connection.
      Set objConn = New ADODB.Connection
      objConn.Open "Driver=SQL Server; Server=localhost; Database=Northwind"
      Set objRS = New ADODB.Recordset
      objRS.CursorLocation = adUseClient    ' This option causes the recordset to
                                            ' use a client-side cursor.
'or
      objRS.CursorLocation = adUseServer    ' This option causes the recordset to
                                            ' use a server-side cursor.
      objRS.Open "SELECT * FROM Orders", objConn, adOpenStatic,
         adLockOptimistic
Debug.Print "Total records: " & objRS.RecordCount ' This line causes an
                                      ' error with a server-side cursor, but we need
                                      ' it for paging.