Rowset does not support fetching backward

[ino_mart]

All

I have next code. An error "Rowset does not support fetching backward" occurs on line rs.movelast. I've tried all possible values for rs.CursorLocation. Does someone have a solution? The recordset contains the requested records and I can navigate by using rs.MoveNext.

Public Sub ExportSiteServerAndStorage(intSiteID As Integer)
Dim cn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim param1 As New ADODB.Parameter
Dim rs As ADODB.Recordset

Set cn = ADODB_Connection 'This runs a seperate function and sets the connection
Set param1 = cmd.CreateParameter("@GroupID", adBigInt, adParamInput)
param1.Value = intSiteID
cmd.Parameters.Refresh
cmd.Parameters.Append param1
With cmd
.ActiveConnection = cn
.CommandText = "sp_Servers_and_Storage_By_Group_Site"
.CommandType = adCmdStoredProc
End With

Set rs = New ADODB.Recordset
rs.CursorType = adOpenDynamic
rs.CursorLocation = adUseServer
Set rs = cmd.Execute

If Not rs.BOF And Not rs.EOF
rs.MoveLast
End If
End Sub