Me.lstKunde.Items.Clear()
        MySqlCommand1.CommandText = "SELECT * FROM kunden"
        Const Len = 20
        Dim RecCount As Integer = 0
        Dim text As String
 
        Const R As String = Microsoft.VisualBasic.ChrW(13) & _
          Microsoft.VisualBasic.ChrW(10)
 
        Try
            Dim DataReader As CoreLab.MySql.MySqlDataReader = _
              MySqlCommand1.ExecuteReader()
 
            If DataReader.FieldCount > 0 Then
                Dim I As Integer
                While DataReader.Read()
                    For I = 0 To DataReader.FieldCount - 1
                        text += DataReader.GetValue(I).ToString().PadRight( _
                          Len).Substring(0, Len) + Microsoft.VisualBasic.ChrW(9)
                    Next I
                    lstKunde.Items.Add(text)
                    text = ""
                    RecCount = RecCount + 1
                End While
 
            Else
 
            End If
 
            DataReader.Close()
        Catch exception As CoreLab.MySql.MySqlException
            System.Windows.Forms.MessageBox.Show(exception.Message & R & R)
            Throw
        End Try