Kode fejler når jeg laver DLL fil

Jeg har følgende kode med 3 komponenter:
Public Function Hello()

Hello = "Hej Freak - Du er sørme skrap! Kl. er: " & Now()

End Function

Public Function Calc(a As Integer, b As Integer)

Calc = a + b

End Function


Public Function GetData()

Set Conn1 = CreateObject("ADODB.Connection")
DSN1 = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN1 = DSN1 & "DBQ=" & "D:\projekter\Synk_database\testdatabase1.mdb"
Conn1.Open DSN1

strSQL1 = "SELECT TableName from Sync"

Set objRec = Conn1.Execute(strSQL1)

Dim strTableNames(300)
Dim strTableNamesCounter
strTableNamesCounter = 0

If Not objRec.EOF Then
   
    'Henter Feltnavne
    For Each objField In objRec.Fields
 
    Next
   
    While Not objRec.EOF
     
      'Henter Data fra Sync tabellen
        For Each objField In objRec.Fields
            strTableNames(strTableNamesCounter) = objRec(objField.Name)
      GetData = GetData & strTableNames(strTableNamesCounter) & " - "
            strTableNamesCounter = strTableNamesCounter + 1
        Next
       
        objRec.MoveNext
       
    Wend

Conn1.Close
Set Conn1 = Nothing
End If


End Function
Når jeg kompileres det til en .dll fil, registrere dll filen og kalder det fra eks. VBA'en i Excel eller via en ASP side får jeg følgende fejl:

Server object, ASP 0178 (0x80070005)
The call to Server.CreateObject failed while checking permissions. Access is denied to this object.
/www/test/sync/DLLTest.asp, line 12

Hvis jeg anvender koden i et "normalt" vb projekt går det fint. Fjerner jeg den sidste function GetData, så kører det som det skal og jeg kan tilgå DLL filen fra enhver VBA.

Hvad går der galt?