ช่วยดูโค้ดให้หน่อยนะคะ แก้ไม่ถูกแล้วคะ เขียนด้วย vb.net

Dim str As String = ""
        Dim drLInvoice As SqlDataReader
        Try
            conn.Open()
            drLInvoice = cmd.ExecuteReader
            While drLInvoice.Read()
                str = str + CStr(drLInvoice("No")).ToString 
            End While
        Catch
        End Try
        lbNoInvoice.Text = str