codice:
Sub CaricaCombo()
        Connessione.Open()
        sql = "SELECT * FROM TipologiaConoscenze"
        Dim DataAd As New SqlDataAdapter(sql, Connessione)
        Dim dataSet As New DataSet()
        DataAd.Fill(dataSet)
            
            CBB_Tipologia.DataSource = dataSet.Tables(0)
            CBB_Tipologia.DataValueField = "ID" 
            CBB_Tipologia.DataTextField = "Nome" 

End Sub

codice:
            
CBB_Tipologia.SelectedItem.Value 'Recupera l'ID 
CBB_Tipologia.SelectedItem.Text 'Recupera il testo