Problemino con array

[Xion Aritel]

Salve a tutti!

Ho un problemino con un array...
Devo dichiararne uno specificando subito il numero di componenti che avrà per poi estrarne un valore casuale, ma devo farlo con una costante.

L'array deve contenere tanti elementi quanti sono quelli contenuti in un recordset.

Per farlo ho provato così:

Const x = rs.RecordCount
Dim IDCliente(x)

Ma non funziona. Dice "Expected literal constant"... qualcuno sa aiutarmi?

Grazie a tutti!

[optime]

se l'array è dinamico, va istanziato con ReDim

[Xion Aritel]

Originariamente inviato da optime
se l'array è dinamico, va istanziato con ReDim

Grazie mille

[Xion Aritel]

Continuano, però, i problemi...

Adesso funziona così:

if rs.EOF = false then

Dim counter
Dim x
x = rs.RecordCount
counter = 0
ReDim IDCliente(x)

While rs.EOF = False

IDCliente(counter) = rs("IDCliente")

counter = counter + 1

rs.MoveNext

Wend

End If

L'errore è "Subscript out of range: '0'"

Non ho capito da dove viene questo errore...

[optime]

sicuro rs.recordcount vale -1 cerca nel forum ,va...

[Xion Aritel]

Originariamente inviato da optime
sicuro rs.recordcount vale -1 cerca nel forum ,va...

Trovato, grazie ancora