Trovato sono un pesce.. ecco il codice corretto:

codice:
 
Private Sub ftmAttivazioneTF_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim coll As New Collections.Generic.List(Of tipologia)
        Dim tipo As New tipologia()

        sql = "select id_tipo_elaborazione,descrizione from cen_tipi_elaborazione order by  id_tipo_elaborazione"
        bind()
        While (dr.Read())
            tipo = New tipologia() 
            tipo.tipologia = dr("id_tipo_elaborazione")
            tipo.descrizione = dr("descrizione")
            coll.Add(tipo)
        End While

        cmbTipologia.DataSource = coll
        cmbTipologia.DisplayMember = "descrizione"
        cmbTipologia.ValueMember = "tipologia"


    End Sub