Private Sub doldur()
        Dim baglanti As New MySqlConnection("Server=localhost;Uid=root;Password=;Database=db;")
        baglanti.Open()
        Dim komut As New MySqlCommand("select * from film order by id desc", baglanti)
        Dim oku As MySqlDataReader = komut.ExecuteReader
        While oku.Read
            Dim id As Integer
            ListView1.Items.Add(oku("filmadi"))
            ListView1.Items(id).SubItems.Add(oku("year"))
            id = id + 1
        End While
        baglanti.Close()
        komut.Dispose()
        oku.Close()

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        doldur()
        ListView1.FullRowSelect = True
        ListView1.View = View.Details
        ListView1.Columns.Add("Film Adı", 300)
        ListView1.Columns.Add("Yıl Bİlgisi", 300)
    End Sub