[SOLUCIONADO] Error con login, botón no me redirige a otra página

[ale_mary17]

Hola amigos les comento mi problema es el siguiente tengo un login donde agrego un usuario y contraseña la comparación con los campos de la base de datos me la hace por medio de un procedimiento almacenado. Eso si me funciona incluso cuando presiono el botón entrar me dice el mensaje de que el usuario y contraseña son correctos pero no me redirige a la otra página sino que más bien se refresca y se queda en la misma y borra los campos (Pero solo me pasa cuando lo direcciono a páginas que contienen una master page cuando le cambio la dirección a una que solo contiene html si me lleva a esa página que puede ser alguien sabe?)

Les dejo mi código asi lo tengo:

If Page.IsPostBack Then
comando.CommandText = "Login"
comando.CommandType = CommandType.StoredProcedure
comando.Parameters.AddWithValue("@usu", usu.Text)
comando.Parameters.AddWithValue("@pas", Encoding.UTF8.GetBytes(pas.Text))
conexion.Open()
comando.ExecuteScalar()

Try
If (comando.ExecuteScalar <> "") Then
'Siguiente pantalla
MsgBox("Usuario y contraseña correctas")
Response.Redirect("~/Pestañas_Menu/Anuncios.aspx")
Else
'Mensaje USUARIO INCORRECTO y no pase a la siguiente ventana
MsgBox("Usuario o contraseña incorrecta")
End If
Catch ex As Exception
End Try
conexion.Close()
End If

La dirección del response esta correcta porque ya la habia probado antes.

[ale_mary17]

Lo único que hice para solucionar mi problema fue agregar un dataset. No se porque se soluciono con eso pero probe y se arreglo el problema.

[ale_mary17]

Asi me quedo al final:

cmd.CommandText = "Login"
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.AddWithValue("@usu", usu.Text)
cmd.Parameters.AddWithValue("@pas", Encoding.UTF8.GetBytes(pas.Text))
Dim da As New SqlClient.SqlDataAdapter(cmd)
Dim ds As New DataSet

' Por último, rellenamos el DataSet
da.Fill(ds)
'Guarda los datos del dataset en una sesión
Session("datos") = ds
conexion.Open()
cmd.ExecuteScalar()
Dim respuesta = cmd.ExecuteScalar

If (respuesta = usu.Text) Then
'Siguiente pantalla
Session("usuario") = ds.Tables.Item(0).Rows(0).Item("USUARIO")
Session("empresa") = ds.Tables.Item(0).Rows(0).Item("EMPRESA")
Session("tipo_usuario") = ds.Tables.Item(0).Rows(0).Item("TIPO_USUARIO")
Session("cod_empleado") = ds.Tables.Item(0).Rows(0).Item("COD_EMPLEADO")
MsgBox("Usuario y contraseña correcto")
Response.Redirect("~/Pestañas_Menu/Anuncios.aspx")
Else
'Mensaje USUARIO INCORRECTO y no pase a la siguiente ventana
MsgBox("Usuario o contraseña incorrecta")
Response.Redirect("~/Pestañas_Menu/Login.aspx")
conexion.Close()
End If