Private dc As New DataClasses1DataContext

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim dt As New DataTable

        dt.Columns.Add("Codice")
        dt.Columns.Add("Descrizione")
        dt.Rows.Add("0", "IT")
        dt.Rows.Add("1", "MON")

        Dim viaggi = From v In dc.sgv_Viaggi Select v

        bs.DataSource = viaggi

        grd.Columns.Add("descrizione", "descrizione")
        grd.Columns.Add("tipologia", "tipologia")

        grd.Columns(0).DataPropertyName = "descrizione"
        grd.Columns(1).DataPropertyName = "tipologia"

        Dim cbocol = New DataGridViewComboBoxColumn
        cbocol.HeaderText = "tipologia in combo"
        cbocol.DataPropertyName = "tipologia"
        cbocol.DataSource = dt
        cbocol.DisplayMember = "Descrizione"
        cbocol.ValueMember = "Codice"

        grd.Columns.Add(cbocol)

    End Sub