It shows a problem at: dv.RowFilter = "Column1 > Val(TextBox1.Text)"