Rækkesættet understøtter ikke baglæns hentning

Jeg har en database som kan connecte til både SQL og access.

Men når jeg ændrer fra Access til SQL får jeg følgende fejl:

Rækkesættet understøtter ikke baglæns hentning.

Open kommandoen ser således ud:

Set database=Server.CreateObject("ADODB.Connection")

'** HER ER ACCESS CONNECTION SOM VIRKER FINT
'database.open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\inetpub\db\tid.mdb")

'** HER ER DEN NYE SQL CONNECTION SOM FÅR FAT I DATABASEN MEN FEJLER SENERE
' Specify the OLE DB provider.
database.Provider = "sqloledb"

' Set SQLOLEDB connection properties.
database.Properties("Data Source").Value = "SERVER"
database.Properties("Initial Catalog").Value = "Tid"
database.Properties("User Id").Value = "sa"
database.Properties("Password").Value = ""

' Open the database.
database.Open

'* HER ER KOMMANDOEN SOM FEJLER
Const adOpenDynamic=2
Const adLockOptimistic=3

    Set reg=Server.CreateObject("ADODB.Recordset")
    SQL=      "SELECT * FROM Registrering " 
    SQL=SQL & "WHERE PersonKode='" & HentCookie("person") & "' "
    SQL=SQL & "ORDER BY PersonKode,Id"
    reg.Open SQL,database,adOpenDynamic,adLockOptimistic 
    if reg.eof or reg.bof then
    NaesteNr=1
    else
    reg.movelast
    NaesteNr=reg.fields("Id")+1
    end if
    reg.close

Er der nogen der har en idé ?

/Peik