Vorrei creare delle variabili e popolarle tanti quanti sono i record nel db
ho provato cosi:

Dim TotMenu
TotMenu = ObjRs.RecordCount


for i=1 to TotMenu
Dim menu&"&i
menu&"&i= objRs("str_categoria")
next

Ma nn sembra funzionare...