LISTING 3: Conditionally Activating an Application Role

  Dim strConn As String
  Dim strLogin As String

  strConn = _
    "PROVIDER=SQLOLEDB.1;" _
    & "OLE DB Services = -2;" _
    & "INTEGRATED SECURITY=SSPI;" _
    & "PERSIST SECURITY INFO=FALSE;" _
    & "INITIAL CATALOG=Products;" _
    & "DATA SOURCE=(local)"

  ' Connect to SQL Server.
  CurrentProject.OpenConnection strConn
  If CurrentProject.IsConnected Then
    ' Activate application role.
    CurrentProject.Connection.Execute _
      "EXEC sp_setapprole 'ProductApprole', 'password'"
      OpenProjectConnection = True
  Else
      OpenProjectConnection = False
  End If