Hjælp til global.asa og dll

Hej

Jeg har en global.asa hvor jeg har defineret en connection string til en DB. Den ser sådan ud:

Application"ConnectionString") "Provider='SQLOLEDB.1';Data Source='lars22.lyngbyes.dk';Initial Catalog='Northwind';uid=sa;pwd="

Jeg har også en dll jeg bruger når jeg skal lave et klad til DBen.Jeg vil gerne have at den skal bruge global.asa til finde sin connection string, hvordan kan jeg gøre det ?

Min dll ser sådan ud

Private m_dbPath As String
Private Conn As Object

Public Sub Connect()
  Set Conn = CreateObject("ADODB.Connection")
  Conn.Open <---- det er her den skal bruge globa.asa
  'Conn.Open "Provider='SQLOLEDB.1';Data Source='lars22.lyngbyes.dk';Initial Catalog='Northwind';uid=sa;pwd="
End Sub

Public Property Get GetConn() As Object
  Set GetConn = Conn
End Property

Public Property Get dbPath() As String
  dbPath = m_dbPath
End Property

Public Property Let dbPath(ByVal sNewPath As String)
  m_dbPath = sNewPath
End Property

Private Sub Class_Terminate()
  Conn.Close
  Set Conn = Nothing
End Sub