Problemer med adOpenDynamic

Hej eksperter.
Er der virkelig ikke nogen der kan hjælpe mig med med mit "lille" problem (har spurgt tidligere).

Når jeg indsætter en række i en tabel skal der automatisk oprettes et fortløbende nummer i den første kolonne.
Min kode ser således ud:

Set RS = Conn.Execute("SELECT tekstnr FROM tekst")
If RS.EOF Then
  wtekstnr = 1
Else
  RS.Movelast
  wtekstnr = RS("tekstnr") + 1
End If
RS.Close
Set Rs = Conn.Execute("INSERT INTO tekst VALUES('" & wtekstnr & "','" & woverskrift & "','" & wdato & "','" & wtekst & "')")

Det virker også fint når der er EndOfFile. Her bliver værdien 1 oprettet i den første kolonne i tabellen.

Problemet kommer nu når jeg vil oprette en række mere. Her får jeg følgende fejl:

ADODB.Recordset.1 error '80020009'
Move Last unsupported on forward-only cursor.

Det skal siges at der i min database forbindelse er angivet følgende:
Set RS = Server.CreateObject("ADODB.Recordset")
Set RS.ActiveConnection = Conn
RS.CursorLocation = adUseServer
RS.CursorType = adOpenDynamic
RS.LockType = adLockOptimistic