get data from database by listview

Dim strSQL As String
        Dim cmd As OleDbCommand
        Dim dtAdapter As OleDbDataAdapter
        Dim ds As DataSet
        Connection.Open()
        lvRecord.Items.Clear()
        strSQL = "select * from customer"
        cmd = New OleDbCommand(strSQL, connectionDB)
        dtAdapter = New OleDbDataAdapter(cmd)
        ds = New DataSet
        dtAdapter.Fill(ds, "customer")

        dt = ds.Tables("customer")
        Dim i As Integer
        For i = 0 To dt.Rows.Count - 1
            lvRecord.Items.Add(dt.Rows(i).ItemArray(1))
            lvRecord.Items(i).SubItems.Add(dt.Rows(i).ItemArray(2))
            lvRecord.Items(i).SubItems.Add(dt.Rows(i).ItemArray(3))
            lvRecord.Items(i).SubItems.Add(dt.Rows(i).ItemArray(5))
        Next
        Connection.Close()