Doppia dropdownlist in una datagrid

Dim valore1 As String
        Dim cn As New OleDb.OleDbConnection(setCnString)
      If e.Item.ItemType = ListItemType.EditItem Then

        Dim DRV1 As DataRowView = CType(e.Item.DataItem, DataRowView)
        Dim CurrentTipo As String = DRV1("nome")
        Dim DDL1 As DropDownList = CType(e.Item.Cells(3).Controls(1), DropDownList)
        Dim sqlRuolo As String = "SELECT id,nome FROM Tipo where cdruoli=" & Session("idruolo")
        Dim DA1 As New OleDb.OleDbDataAdapter(sqlRuolo, cn)
        Dim DS1 As New DataSet
        Dim item As ListItem
        DA1.Fill(DS1, "Tipo")
        DDL1.DataSource = DS1.Tables("Tipo").DefaultView
        DDL1.DataTextField = "Nome"
        DDL1.DataValueField = "Id"
        DDL1.DataBind()
        item = DDL1.Items.FindByValue(CurrentTipo)
        If Not item Is Nothing Then item.Selected = True
        valore1 = DDL1.SelectedItem.Value.ToString
End If