Losing ODBC connection with Pass-through query. (MS Access/Sql Svr 2008/VBA)

[vns]

I am using ms access as a frontend & sql svr 2008 as a backend. The same pass-through query is being executed at two different points in the vba. The first time it executes with no problem. The second time it tries to execute but fails due to an odbc connection error. The only way I can run the pass-through query again is by closing and reopening the ms access database.

Desparately need help.

Thx!

[DaveSawers]

Then presumably the ODBC connection goes out of scope.

What is the returned error?

[vns]

Returned error is as follows:

"ODBC--connection to 'SVRabc' failed."

Code is as follows:

'first time works
Dim qd1 As QueryDef
Set qd1 = CurrentDb.QueryDefs("qrytmptblBookingsDelete")
Dim strSQL1 As String
strSQL1 = "delete from tmptblBookings"
CurrentDb.QueryDefs("qrytmptblBookingsDelete").SQL = strSQL1
qd1.Connect = getConnectionString()
CurrentDb.Execute ("qrytmptblBookingsDelete")
qd1.Close

'misc code here

'second time doesn't work
Dim qd2 As QueryDef
Set qd2 = CurrentDb.QueryDefs("qrytmptblBookingsDelete")
Dim strSQL2 As String
strSQL2 = "delete from tmptblBookings"
CurrentDb.QueryDefs("qrytmptblBookingsDelete").SQL = strSQL2
qd2.Connect = getConnectionString()
CurrentDb.Execute ("qrytmptblBookingsDelete")
qd2.Close

After this error occurs, I can even go directly to that query, manually input the odbc connection string, try running it, & the same error still appears. The only way to correct it is to close the database & reopen it.