Private Sub SetSource()
        Dim dt As New DataTable
        dt.Columns.Add("Ausgaben", GetType(Double))
        dt.Columns.Add("Januar", GetType(Double))
 
        Dim r As DataRow = dt.NewRow
        r("Ausgaben") = 1000
        r("Januar") = 100
        dt.Rows.Add(r)
 
        DataGridView1.DataSource = dt
        DataGridView1.AllowUserToAddRows = False 'je nachdem ...
    End Sub