nægtet adgang

jeg får følgende medelelse når jeg vil ha adgang til min sql server:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E4D)
[Microsoft][ODBC SQL Server Driver][SQL Server]Login failed for user 'JACOB-YBF2Z62B6\IUSR_JACOB-YBF2Z62B6'.
/dbconn.asp, line 10

min kode er:

<%

dim connobj

Function OpenConn()


        'Med SYSTEM ODBC forbindelse
        Set ConnObj = Server.CreateObject("ADODB.Connection")
        ConnObj.Open "server"
       
       
        'Uden SYSTEM ODBC forbindelse
        'Dim DB_CONNECTIONSTRING
        'DB_CONNECTIONSTRING = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("test1.mdb")
        'DB_CONNECTIONSTRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & request.ServerVariables("APPL_PHYSICAL_PATH") & "test1.mdb"
        'Set ConnObj = Server.CreateObject("ADODB.Connection")
        'ConnObj.Open DB_CONNECTIONSTRING

End Function

Function OpenRecordset(sRSSource)
    'if ConnObj.State = 0 then
        OpenConn()
    'end if
    Set RstObj = Server.CreateObject("ADODB.Recordset")
    RstObj.Open sRSSource, ConnObj, 1,&H0002
    RSCounter = RstObj.RecordCount
    Set OpenRecordset = RstObj
   
    Set RstObj = Nothing
   
End Function

Sub CloseConn()
    ConnObj.Close
End Sub

%>