Dim ts As New DataGridTableStyle
        Dim tbc As DataGridTextBoxColumn
        Dim aColumnTextColumn As DataGridNoActiveCellColumnMultiple
 
 
        ts.MappingName = "TAETIGKEIT"
 
        ts.HeaderBackColor = System.Drawing.Color.AliceBlue
 
        ts.RowHeadersVisible = False
 
        ts.BackColor = System.Drawing.Color.AliceBlue
 
        ' Spalte 1 PROJEKTNR-- Projektnummer
        tbc = New DataGridTextBoxColumn
        tbc.MappingName = "PROJEKTNR"
        tbc.Alignment = HorizontalAlignment.Center
        tbc.HeaderText = "Kunden - Nr."
        tbc.Width = 80
        tbc.TextBox.Enabled = True
        ts.GridColumnStyles.Add(tbc)
 
 
        ' Spalte 2 PROJEKTNAME-- Stammdaten
        tbc = New DataGridTextBoxColumn
        tbc.MappingName = "PROJEKTNAME"
        tbc.Alignment = HorizontalAlignment.Center
        tbc.HeaderText = "Kundenname"
        tbc.Width = 150
        tbc.TextBox.Enabled = True
        ts.GridColumnStyles.Add(tbc)
 
 ts.AllowSorting = False
        ts.ReadOnly = True
 
        grdData.TableStyles.Add(ts)

 
 
 Private Sub grdData_DoubleClick(ByVal sender As Object, ByVal e As _
   System.EventArgs) Handles grdData.DoubleClick
 
        Dim Wert As String = ""
        Wert = grdData.Item(grdData.CurrentCell)
 
        Aendern()
End Sub