' Meassure Combobox in Datagrid
        Try
            DataAdapter = New Odbc.OdbcDataAdapter("SELECT .......'", _
              Verbindung)
            DataAdapter.Fill(Datenmenge, "meassures")
 
            Dim DGVMeassureCol As DataGridViewComboBoxColumn = _
                DirectCast(Me.DataGridView3.Columns(1), _
                DataGridViewComboBoxColumn)
 
            With DGVMeassureCol
                .DataSource = Datenmenge.Tables("meassures")
                .DisplayMember = Datenmenge.Tables("meassures").Columns( _
                  "li_text").ColumnName
                .ValueMember = Datenmenge.Tables("meassures").Columns( _
                "li_art").ColumnName
            End With
        Catch ex As Exception
        End Try