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

[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