Dim a(,) As Integer = {{1, 2}, {3, 4}, {5, 6}}
 
        For c As Integer = 0 To a.GetUpperBound(1)
            DataGridView1.Columns.Add("C" & (c + 1).ToString(), "C" & (c + _
              1).ToString())
        Next
 
        For r As Integer = 0 To a.GetUpperBound(0)
            DataGridView1.Rows.Add()
 
            For c As Integer = 0 To a.GetUpperBound(1)
                DataGridView1.Rows(r).Cells(c).Value = a(r, c)
            Next
        Next

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist