Type Mismatch i array

Jeg har et array som skal blive til en shopping-kurv (engang) - men den volder mig lidt problemer. Jeg får en type-mismatch i linie 30:

Redim Preserve arrKurv(5,1)

Og nogle gange også når jeg prøver at indsætte data i arrayet ex.:

arrKurv(0,1) = "id"

------------------- KOPI AF HELE SCRIPTET -----------------
Dim arrKurv,intItems

Const PID = 0
Const PNAVN = 1
Const PDATA = 2
Const PANTAL = 3
Const PPRIS = 4


If Not IsEmpty(Session("intItems")) Then
    arrKurv = Session("arrKurv")
    intItems = Session("intItems")
Else
    intItems = 0
End If


If Request.Querystring("action") = "add" Then
    Redim Preserve arrKurv(5,1)
   
    arrKurv(0,1) = "id"

    Session("arrKurv") = arrKurv
    Session("intItems") = intItems
End If

If Request.Querystring("action") = "reset" then
    Session.Abandon
End If