Access/ Unspecified Error

Jeg får denne periodiske fejl - kommer kun engang imellem :

Provider error '80004005'

Unspecified error

/beta/default.asp, line 212

Koden er sjusket og rodet - det er nok grunden
er der en der kan hjælpe med at rette op på dette

% strKeyword = "" + RegNr + ""

    If Len(strKeyword) = 0 Then
        ' Hvis der ikke er skrevet i feltet
        Response.Clear
        Response.Redirect("default.asp?08129506432")
    Else
        ' Hvis der er skrevet i feltet
        strKeyword = Replace(strKeyword,"'","''")
End If

' Opbygger en dynamisk SQL streng
strSQL = "SELECT ID, Id, Regnr, PI, Info, Version, Note FROM pireg WHERE"
strSQL = strSQL & " (Id LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Regnr LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (PI LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Info LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Version LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Note LIKE '%" & strKeyword & "%')"


' Skaber DSNLess forbindelse til DBen
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("pi.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN

' Skaber et recordset udfra SQL strengen
Set rs = myConn.Execute(strSQL)
    Do While Not rs.EOF

if isDate(HotlineSlutSvar) then
    If DateDiff("s", HotlineSlutSvar, Now) > 0 then
        strAktiv = "<b><font color=#FF0000>UDLØBET!!</font></b><br> <i>(" & rs("Info") & ")</i>"
    else
        strAktiv = "Aktiv"
    end if
else
    strAktiv = "Fejl i dato (muligvis ukendt bruger)"
end if

NavneLinie1 = Replace(NavneLinie1,"{","æ")
NavneLinie1 = Replace(NavneLinie1,"|","ø")
NavneLinie1 = Replace(NavneLinie1,"}","å")

NavneLinie2 = Replace(NavneLinie2,"{","æ")
NavneLinie2 = Replace(NavneLinie2,"|","ø")
NavneLinie2 = Replace(NavneLinie2,"}","å")

NavneLinie3 = Replace(NavneLinie3,"{","æ")
NavneLinie3 = Replace(NavneLinie3,"|","ø")
NavneLinie3 = Replace(NavneLinie3,"}","å")

NavneLinie4 = Replace(NavneLinie4,"{","æ")
NavneLinie4 = Replace(NavneLinie4,"|","ø")
NavneLinie4 = Replace(NavneLinie4,"}","å")

response.write "<table border=2>"
response.write "<tr><td>"
response.write "<b>PI: </b><td>" & rs("PI") & " <font size=1><a href=http://its_sna/search/ target=_blank>(PI-Opslag)</a></font>"
response.write "</td></tr><tr><td>"
response.write "<b>Opslagsstatus:</b> <td><b>" + ReturKodeSvar + "</b><i> (" + SQLCICSKodeSvar + ")</i>"
response.write "</td></tr><tr><td>"
response.write "<b>Tryk&Lyt Status: </b><td>" + AftaleStatus1KodeSvar + ""
response.write "</td></tr><tr><td>"
response.write "<b>Kundeoplysninger: </b><td><b>" + NavneLinie1 + "</b>(" + RegNr + " " + KortNr + ")<br>" + NavneLinie2 + "<br>" + NavneLinie3 + "<br>" + NavneLinie4 + "" + Email + ""
response.write "</td></tr><tr><td>"
Response.Write "<b>Dato: </b><td>" & HotlineSlutSvar & " " & strAktiv & ""
response.write "</td></tr><tr><td>"
response.write "<b>Antal fejlindtastninger: </b><td><b>" + AntalFejlindtastninger + "</b>"
response.write "</td></tr><tr><td>"
response.write "<b>AftaleStatus: </b><td><b>" + AftaleStatus2KodeSvar + "</b>"
response.write "</td></tr><tr><td>"
response.write "<b>Browser aftale statuskode: </b><td>" + BrowserAftaleStatusSvar + ""
response.write "</td></tr><tr><td>"
response.write "<b>Browser type: </b><td>" + BrowserTypeSvar + " (" & rs("Version") & ")"
response.write "</td></tr><tr><td>"
response.write "<b>Særlig note: </b><td>" & rs("Note") & " <i>(" & rs("Info") & ")</i>"
response.write "</td></tr></table>"


rs.MoveNext
    Loop

' Rydder op efter os
myConn.Close
Set myConn = Nothing

i = InStr(Request.ServerVariables("LOGON_USER"),"\") + 1
USERNAME = UCase(mid(CStr(Request.ServerVariables("LOGON_USER")),i))
%>
Opslag foretaget <%= now%> af <% Response.Write ("" + USERNAME + "") %>

</BODY>
</HTML>

linie 212 = myConn.Open strDSN