vb ดึงข้อมูลมาสแดงใน listview ขอคำชี้แนะด้วยคับทำไม่ได้สักทีคับ

'แอดคอลัมน์ เพื่อแสดงหัวคอลัมน์ก่อนนะคับ

        lv_mem.Columns.Add("รหัสหนังสือ", 100, HorizontalAlignment.Center)
        lv_mem.Columns.Add("ชื่อเรื่อง", 200, HorizontalAlignment.Left)

        lv_mem.View = View.Details
        lv_mem.GridLines = True

'ส่วนดึงค่ามาแสดง
Private Sub FindBookNotReturn()

        With Cnn
            If .State = ConnectionState.Open Then Close()
            .ConnectionString = Cnnstring
            .Open()
        End With
        Dim sqluser As String = ""
        sqluser = "SELECT รหัสหนังสือ,ชื่อหนังสือ FROM tb_borrow WHERE รหัสสมาชิก = '" & txt_memid.Text & "'"
        sqluser &= " ORDER BY รหัสหนังสือ ASC"

        Dim OleCommand As New OleDbCommand(sqluser, Cnn)
        Dim OleReader As OleDbDataReader
        OleReader = OleCommand.ExecuteReader
        OleReader.Read()
        Cnn.Close()

        dt = New DataTable
        dt.Load(OleReader)
        Dim row As DataRow
        lv_mem.Items.Clear()

        For Each row In dt.Rows
            Dim li As New ListViewItem
            li.SubItems.Add(CType(row("รหัสหนังสือ"), String))
            li.SubItems.Add(CType(row("ชื่อหนังสือ"), String))


            lv_mem.Items.Add(li)
            li = Nothing

        Next
        OleReader.Close()

ListViewItem _lvItem;
string[] _arLV;

private BindingDataInListview()
{
if (dt.Rows.Count > 0)
                {                    
                    for (int i = 0; i < dt .Rows .Count -1; i++)
                    {
                       _arLV = new string[]{
                       dt.Rows [i]["BookID"].ToString (),
                       dt.Rows [i]["SubName"].ToString ()
                       };
                       _lvItem = new ListViewItem(_arLV);
                       listView1.Items.Add(_lvItem);
                    }
                   
                }
}