Fatter ikke arrays

Jeg har et 2 dimensionelt array, som jeg skal fylde med data fra en database og så skrive det ud. Kan nogen hjælpe?

Set rs = conn.execute("SELECT id, fld_project FROM tbl_projects ORDER BY fld_project")

arrCount = 0
Dim arrProjects

Do While Not rs.EOF
  arrProjects[arrCount,0] = rs("fld_project")
  arrProjects[arrCount,1] = rs("id")
  arrCount = arrCount + 1
rs.MoveNext
Loop

rs.close
set rs = nothing

---

<%
For i = LBound(arrProjects) To UBound(arrProjects)
  response.Write "<option value=""" & arrProjects(i,1) & """>" & arrProjects(i,0) & "</option>"
Next
%>

---

Microsoft VBScript runtime error '800a000d'
Type mismatch
/xxx/Default.asp, line 22

---

Linie 22 er:

  arrProjects[arrCount,0] = rs("fld_project")


Håber nogen kan hjælpe mig med at få det til at spille!