Odbc conn. med brugernavn/pass til Access, haster

Hej Alle

Jeg har en velfungerende site kørende, men har behov at benytte højere sikkerhed på min Access database. Derfor har jeg bruger sikkerhed på denne. Men nu virker mine web sider ikke, som er lavet i ASP. Jeg har bygget sitet op omkring frontpage, og har ændret DB connection på frontpage, så den connecter via en system DNS kaldet help_desk og det virker. Men jeg skal have opdateres min ASP kode at benyte denne. How to do ????? Min connection kode kommer her. Det haster

<%

' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/fpdb/Help_desk.mdb")
Conn.Open DSN

strTekst = Request.Form( "Problemstilling" )
strTekst = Replace( strTekst, "'", "''" )

Ini =  Request.Form( "Initialer" )

strSQL = "Insert into Resultater ("

strSQL = strSQL & "Initialer, "
strSQL = strSQL & "Placering, "
strSQL = strSQL & "Type, "
strSQL = strSQL & "Problem, "
strSQL = strSQL & "software, "
strSQL = strSQL & "Problemstilling, "
strSQL = strSQL & "Priotet, "
strSQL = strSQL & "Session, "
strSQL = strSQL & "Status, "
strSQL = strSQL & "Status_bom, "
strSQL = strSQL & "Tidsstempel ) "

strSQL = strSQL & "values( "

strSQL = strSQL & "'" & Request.Form("Initialer") & "' , "
strSQL = strSQL & "'" & Request.Form("Placering") & "' , "
strSQL = strSQL & "'" & Request.Form("Type") & "' , "
strSQL = strSQL & "'" & Request.Form("Problem") & "' , "
strSQL = strSQL & "'" & Request.Form("software") & "' , "
strSQL = strSQL & "'" & strTekst & "', "
strSQL = strSQL & "'" & Request.Form("Priotet") & "' , "
strSQL = strSQL & "'" & Session.SessionID & "' , "
strSQL = strSQL & "'" & Request.Form("Status") & "' , "
strSQL = strSQL & "'" & Request.Form("Status_bom") & "' , "
strSQL = strSQL & "'" & Request.Form("Tidsstempel") & "')"

' SQL sætning eksekveres
Conn.Execute(strSQL)

' Hent fra databasen Nøgle værdien udfra det unikke Sessionsnummer
strSQL = "Select * From Resultater Where Session = " & Session.SessionID
Set rs = Conn.Execute(strSQL)

%>