定义数组不能使用变量

rs.open "select * from 职工信息",cn,1,1
count1=rs.recordcount-1
response.Write count1
dim str(count1)
为什么定义数组时出错，表中有6条记录，str(count1)应该等同于str(6)啊，直接写数字不出错。出错代码如下：
Microsoft VBScript ���������� ���� '800a0402'  

ȱ�����ͳ���  

/test.asp���� 19  

dim str(count1)
--------^