Namespace, Class, Function, xiiii

Olá Pessoal!

Estou com um probleminha aqui que está encomodando.

Tenho o código abaixo para criar uma conexão com o banco de dados. Quando tento compilar o código para uma DLL.Net, o compilador retorna o seguinte erro:

Error : C:\servidor\sites\apaeleme\vb\apaeleme.vb line 9) -> 'HttpContext' is not a member of 'Web'.

Imports SystemImports System.Data.SqlClientNamespace Conexao Public Class Conexao Function Conectar() As SqlConnection Dim nomeServidor As String = System.Web.HttpContext.ServerVariables("SERVER_NAME") Dim dadosConexao As String If nomeServidor = "localhost" Then dadosConexao = "server='localhost'; user id='userid'; password='*****'; database='dbname'" Else dadosConexao = "server='servidor.mssql.org'; user id='userid'; password='******'; database='dbname'" End If Dim cnnConn As SqlConnection = New SqlConnection cnnConn.ConnectionString = dadosConexao Return cnnConn End Function End ClassEnd Namespace

Desculpem-me se o erro for algo simples, sou iniciante.

Obrigado