si te sale el mensaje entonces es porque no estas llenando ese datatable correctamente, ahora el problema se centra en tu query de la consulta:
viendo el inicio de este post corrijelo de esta manera :
Código vb.net:
Ver originalestadosuser = Session("CESTADOS").toString
consulta3 = "select estados from USUARIO where estados = '" & estadosuser & "'"
dtUsuario = ExecuteQueryDataTable(consulta3)
txtestado.Text = dtUsuario.Rows(0)(0).ToString