mDA = New MySqlDataAdapter(“SELECT name, pic FROM person“, CNN)
 
  mCB = New MySqlCommandBuilder(mDA)
  With mCB
   .ConflictOption = ConflictOption.OverwriteChanges
   .SetAllValues = False
  End With
 
  mDT = New DataTable
  mDA.Fill(mDT)
 
  mBS = New BindingSource
  mBS.DataSource = mDT
 
  DGV.DataSource = mBS
 
  DGV.AutoResizeColumns()
  DGV.AutoResizeRows()

Dim dgv_ic As DataGridViewImageColumn
'' Column mit bilder finden
  For x = 0 To DGV.Columns.Count - 1
   If DGV.Columns(x).GetType.ToString.Contains("DataGridViewImageColumn") Then
    dgv_ic = CType(DGV.Columns(x), DataGridViewImageColumn)
    dgv_ic.Width = 70
   End If
  Next
'' alle zeilen durchlaufen und ImageLayout einstellen
  For i = 0 To DGV.Rows.Count - 1
   Dim ic As DataGridViewImageCell = CType(DGV.Rows(i).Cells(1), _
     DataGridViewImageCell)
   ic.ImageLayout = DataGridViewImageCellLayout.Zoom
  Next

Private Sub DGV_CellFormatting(ByVal sender As System.Object, ByVal e As _
  System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles _
  DGV.CellFormatting
 
  If TypeOf CType(sender, DataGridView).Rows(e.RowIndex).Cells(e.ColumnIndex) _
    Is DataGridViewImageCell Then
 
   If CType(CType(sender, DataGridView).Rows(e.RowIndex).Cells(e.ColumnIndex), _
     DataGridViewImageCell).Value IsNot DBNull.Value Then
    CType(CType(sender, DataGridView).Rows(e.RowIndex).Cells(e.ColumnIndex), _
    DataGridViewImageCell).ImageLayout = _
    DataGridViewImageCellLayout.Zoom
    'Column-Breite ist schon fest voreingestellt
    CType(sender, DataGridView).Rows(e.RowIndex).Height = CInt(CType(sender, _
      DataGridView).Columns(e.ColumnIndex).Width / 3 * 4)
   End If
 
  End If
 
 End Sub