Dim sr As New IO.StreamReader("C:\Kunden.txt")
        While sr.Peek > -1
            Dim l As String = sr.ReadLine
            ComboBox1.Items.Add(l)
        End While
        sr.Close()
        ComboBox1.SelectedIndex = 0

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov