Public Class Form1
 
    Private ds As New DataSet
    Private dt As New DataTable("MeineLinks")
 
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As  _
      System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        ds.WriteXml("U:\MeineLinks.xml")
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As  _
      System.EventArgs) Handles MyBase.Load
 
        Dim column As New DataGridViewComboBoxColumn()
        With column
            .HeaderText = "Fuktion/Status"
            .Width = 250
            .Items.AddRange("Kundeninfo", "E-Mail Angebot", "Mrs.", "Dr.")
            .DataPropertyName = "Status"
        End With
        Me.DataGridView1.Columns.Add(column)
 
        dt.Columns.Add("Status", System.Type.GetType("System.String"))
        dt.Columns.Add("Customer", System.Type.GetType("System.String"))
        dt.Columns.Add("Customer number", System.Type.GetType("System.String"))
        dt.Columns.Add("Project", System.Type.GetType("System.String"))
        dt.Columns.Add("Inquiry", System.Type.GetType("System.String"))
        dt.Columns.Add("Quotation", System.Type.GetType("System.String"))
 
        ds.Tables.Add(dt)
 
        If My.Computer.FileSystem.FileExists("U:\MeineLinks.xml") Then
            ds.ReadXml("U:\MeineLinks.xml")
        End If
 
        Me.DataGridView1.DataSource = ds.Tables("MeineLinks")
 
    End Sub
 
End Class