Don't use a command object for a simple query like this:

Public function GetNextRecordId As Integer

Dim iRetVal As Integer

Set oRecSet = New ADODB.Recordset
oRecSet.open "select recordid from members", oConn, adOpenStatic, adLockReadOnly


oRecSet.MoveLast
iRetVal = oRecSet.Fields("RecordId").Value + 1

GetNextRecordId = iRetVal

>In the following function, I'm getting the error:
>"Rowset does not support fetching backward"
>
>on the line with oRecSet.MoveLast
>
>I'm using Microsoft Jet OLEDB 3.51 as a provider, and the
>recordset cursortype is adOpenKeyset.
>
>
>Public function GetNextRecordId As Integer
>
>Dim iRetVal As Integer
>
>Set oSqlCmd = New ADODB.Command
>oSqlCmd.ActiveConnection = oConn
>oSqlCmd.CommandType = adCmdText
>oSqlCmd.CommandText = "select recordid from members"
>
>Set oRecSet = New ADODB.Recordset
>Set oRecSet = oSqlCmd.Execute
>
>oRecSet.MoveLast
>iRetVal = oRecSet.Fields("RecordId").Value + 1
>
>GetNextRecordId = iRetVal
>