Array con numero totale record

[ab6499]

H bisogno di creare un Array in Asp in questo modo
Dim Commesse(n)
dove n corrisponde al numero di record appartenenti ad una tabella

Ho scritto questo codice ma non funziona.
Se però sistituisco ad Dim Commesse(n) Dim Commesse(100) (100 o qualsiasi numero maggiore o uguale al numero dei record della tabella) tutto funziona correttamente. Qualcuno mi sa dire dove sbaglio?
Grazie a tutti per il vostro aiuto

 
Dim n
Set conn = Server.CreateObject("ADODB.Connection")
conn.open(ConnessioneDb)
sql = "SELECT Count (Id) As TotCommesse FROM Commesse"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn,3 ,3
n=rs("TotCommesse")

Dim Commesse(n)
Set conn = Server.CreateObject("ADODB.Connection")
conn.open(ConnessioneDb)
sql = "SELECT * from Clienti where ...."
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn,3 ,3 

k=1
while not rs.EOF
Commesse(k)=rs("Ragione sociale")
rs.movenext
k = k + 1
wend
rs.close: set rs=nothing