'inserire datagridcolumcombobox
Dim Combo As New DataGridViewComboBoxColumn
With Combo
Using con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & _
Application.StartupPath & "\db.mdb")
con.Open()
Dim command1 As New OleDbCommand("SELECT * from Optional", con)
Dim adapter1 As New OleDbDataAdapter
Dim dt1 As New DataTable
adapter1.SelectCommand = command1
adapter1.Fill(dt1)
.DataSource = dt1
.DisplayMember = "Descrizione"
.ValueMember = "IDOptional"
.ValueType = GetType(System.String)
.FlatStyle = FlatStyle.Standard
adapter1.Dispose()
command1.Dispose()
con.Close()
End Using
DataGridView.Columns.Add(Combo)
DataGridView1.DataSource = dt
DataGridView.Columns(5).DataPropertyName = "Descrizione"
End With