This way
Dim dt As New DataTable()
dt.Columns.AddRange(New DataColumn(1) {New DataColumn("Coupon"), New DataColumn("Code")})
dt.Rows.Add("Shirt", 199)
dt.Rows.Add("Football", 20)
dt.Rows.Add("Shirt", 566)
dt.Rows.Add("Disc", 99)
dt.Rows.Add("Watch", 54)
dt.Rows.Add("Clock", 890)
lblNo.Text = If(dt.Rows(0)("Code").ToString() = "199", "YES", "NO")