If rdbVuokrat.Checked Then

            yhteys.Open()
            Dim Leffakysely As New OleDb.OleDbCommand("SELECT vuokrausID, vuokAsNumero, vuokPvm FROM VUOKRAUS", yhteys)
            Dim Leffareader As OleDb.OleDbDataReader = Leffakysely.ExecuteReader
            Dim Leffalaskuri As Decimal = 0

            lvLista.Columns.Add("VuokrausID", 100, HorizontalAlignment.Left)
            lvLista.Columns.Add("Vuokraajan asiakasnumero", 200, HorizontalAlignment.Left)
            lvLista.Columns.Add("VuokrausPvm", 150, HorizontalAlignment.Left)

            Do While Leffareader.Read
                Leffalaskuri = Leffalaskuri + 1

                ListText(0) = Leffareader.GetValue(0)
                ListText(1) = Leffareader.GetValue(1)
                ListText(2) = Leffareader.GetValue(2)

                ListItem = New ListViewItem(ListText)
                lvLista.Items.Add(ListItem)
            Loop

            Leffareader.Close()
            yhteys.Close()

        End If