Ho risolto così....grazie per l'aiuto


Dim ddlCat As DropDownList = DataGrid1.Items(e.Item.ItemIndex).Cells(3).FindCon trol("DDCat")
Dim Categoria(5) As String
categoria(0) = "Consulente-Progettista"
categoria(1) = "Installatore"
categoria(2) = "Impresa di Costruzione"
categoria(3) = "Rivenditore"
categoria(4) = "OEM Costruttore"
categoria(5) = "Utente finale"
Dim i As Integer
For i = 0 To 5
ddlCat.Items.Insert(i, categoria(i))
ddlCat.Items(i).Value = i+1
Next
ddlCat.Items.FindByValue(Session("Cat")).Selected = True