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
>
Éric Moreau, MCPD, Visual Developer - Visual Basic MVP
Conseiller Principal / Senior Consultant
Moer inc.
http://www.emoreau.com