1. Antes debemos importar el ensamblado que maneja la base de datos SQL Server


2. Luego para el botón Cancelar

Evento: Clic

Protected Sub btnCancelar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
    Response.Redirect("indice.aspx")
End Sub

3. Para el botón Aceptar

Evento: Click

Protected Sub btnAceptar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
   Dim sqlConexion As SqlConnection = New _
    SqlConnection(ConfigurationManager.ConnectionStrings( _ "Ventas").ConnectionString)

    Dim sqlComando As SqlCommand = New SqlCommand()
    sqlComando.Connection = sqlConexion
    sqlComando.CommandType = Data.CommandType.StoredProcedure
    sqlComando.CommandText = "sp_Usuario_Clave"

    Dim strUsuario As String = txtUsuario.Text
    Dim strClave As String = txtClave.Text

    ' Parámetros
    sqlComando.Parameters.Add(New SqlParameter("@Usuario", _ Data.SqlDbType.VarChar, 30)).Value = strUsuario

    sqlComando.Parameters.Add(New SqlParameter("@Clave", _ Data.SqlDbType.VarChar, 30)).Direction = Data.ParameterDirection.Output

    Try
       sqlConexion.Open()
       sqlComando.ExecuteNonQuery()
       Dim strClaveBD As String = _ sqlComando.Parameters("@Clave").Value

    If strClaveBD = "" Then
       txtMensajes.Text = "Usuario No Autorizado"
    Else
       If strClaveBD = strClave Then
          Response.Redirect("frmIntranet.aspx")
       Else
          txtMensajes.Text = "Clave Incorrecta"
       End If
    End If
    Catch ex As Exception

    End Try

    End Sub

End Sub