ODBC -- Call Failed

Hello all,

I have a problem which I can't seem to understand what is the cause. Please help!!!

I have this access which run under oracle 10g. Here is the code (below) that I always get error in. When I got into this error, I go to Control Panel -> Administrative Tools-> Data Sources (ODBC) then I choose on acc (microsoft Access Driver (*.mdb)) and click Configure. I select the access and click repair. It get through and I thought that I solve the error, but every time that I close and open the access when try to run, I receive the same error again. If I goes to the same process, click repair. It work, but I have to do it every time that I close and re-open the access. Does anyone know how to make it default so that I don't have to go the same process every time. Thank you.

Run-time error '-2147467259 (80004005)':
ODBC -- call failed.




Code Snippet
Dim White As Object
Set White = CreateObject("APToolkit.Object")
White.openoutputfile "C:White_" & controlno & ".pdf"
White.openinputfile "C:White.pdf"
White.setmasterquery "DSN=acc", "", "", "-1", "select e.*, f.* from prod_test e, stc f where e.control_number=" & controlno
White.addrelatedquery "DSN=acc", "", "", "-1", "select *, PROD_items.TOT & ' (kgs)' as TOT, CDbl([qty]/300)*CDbl([price]) as PRICE from PROD_ITEMS where control_number=" & controlno & "", "True"
White.setdbmultirowseparator ""
White.doformformatting = True
White.SetDefaultDBMergeFlag -998
White.FlattenRemainingFormFields = True
White.dbtoform False
White.resetformfields
White.closeoutputfile
Set White= Nothing