With dtGrid.Columns
   .Add("AP_Lfd", GetType(Int16))
   .Add("AP_MdNr", GetType(Long))
   .Add("AP_AnNr", GetType(Long))
   .Add("Arbeitnehmer", GetType(String))
 
   For nTag = 1 To Date.DaysInMonth(cmbJahr.Text, cmbMonat.SelectedValue)
      .Add(nTag.ToString, GetType(String))
   Next
End With
 
dvGrid = New DataView(dtGrid)
bsGrid.DataSource = dvGrid
 
'dtGrid wird nun mit Daten gefüllt
'und zum Schluss füge ich die DataGridViewImageColumn hinzu
 
Dim ic As New DataGridViewImageColumn
 
With ic
   .Name = "ZeileHinzu"
   .HeaderText = ""
   .AutoSizeMode = DataGridViewAutoSizeColumnMode.DisplayedCells
   .DefaultCellStyle.BackColor = cHellGelb
   .Image = +-Zeichen als Image
End With
 
dgv.Columns.Insert(4, ic)