Haster. Problemer med 2 dimetionelt array

Jeg har et array, som jeg gerne vil have til at være 2 dimentionelt. Jeg har forsøgt med følgende kode, men da det er første gang jeg benytter et 2 dim array er jeg løbet ind i nogle problemer. Den ene dimension skal være variabel, mens den anden skal være låst på 2 elementer, type og id.

Any help would be nice :-)

<%
Dim aryTmp(),i,strSQL,objRS
i = 0

while whatever < i
  strSQL = \"select ID,strType From ............
  set objRS = .........

  Redim Preserve aryTmp(1,i)

  aryTmp(0,i) = objRS(\"strType\")
  aryTmp(1,i) = objRS(\"ID\")

  i = i + 1
wend
%>

Som nævnt i overskriften, så haster det lidt.