side virker kun ca hver 10. gang..

Hej.

Når jeg prøver at hente data fra min DB virker den kun lige en gang. Jeg prøver så at trykke "refresh" (F5) og så melder den fejl. hvis jeg så venter lidt, så virker den som regel en gang igen. hvad kan problemet være..??

Her er min connection kode:

<%

dim connobj

Function OpenConn()


        'Med SYSTEM ODBC forbindelse
        'Set ConnObj = Server.CreateObject("ADODB.Connection")
        'ConnObj.Open "TibOnSQL","tib","bitbit"
       
       
        '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

%>