Can't find New Queries via Microsoft.Jet.OLEDB.4.0

[Jim Bunton]

Windows 2000
Access 2000

? currentdb.Version
4.0
Tried:
* reboot
* currentdb.Containers(8).Documents.Refresh


PROBLEM - connecting to my Access database through Cn.Provider =
"Microsoft.Jet.OLEDB.4.0" from an asp script NEW queries are not recognised.


Function ValidSupplierLogin(uId, Pwd)
Dim cnGoodsInStock, sql, rsSuppliersLogin
Dim testname
testname = "test"
Set CnGoodsInStock = OpenConnToGoodsInStock()
'FOR TESTING"
sql = "SELECT * FROM qSuppliersInfCOPY " 'A
'sql = "SELECT * FROM qSuppliersInf " 'B
sql = sql & " WHERE CompanyName =" & """" & testname & """"
'END FOR TESTING
Set rsSuppliersLogin = OpenSqlSet(Sql, CnGoodsInStock, adOpenStatic,
adLockReadOnly)
response.write sql & "<BR>"
response.write "?recordset.BOF>" & rsSuppliersLogin.bof
response.end
If rsSuppliersLogin.bof then
ValidSupplierLogin = False
else
ValidSupplierLogin = True
end if
End Function

With line B included
SELECT * FROM qSuppliersInf WHERE CompanyName ="test"
?recordset.BOF>False

With line A included
Error Type:
Microsoft JET Database Engine (0x80040E37)
The Microsoft Jet database engine cannot find the input table or query
'qSuppliersInfCOPY'. Make sure it exists and that its name is spelled
correctly.
/goodsinstockdev/cgi-bin/MyInclude.asp, line 200



NB - has been working fine for 2 weeks! BUT not TODAY


NOTE - to create the connection:- [works fine!!!]
Set Cn=Server.CreateObject("ADODB.Connection")
Cn.Provider = "Microsoft.Jet.OLEDB.4.0"
Cn.Properties("Data Source") =
"d:\SolutionsNet\GoodsInStock\GoodsInStockWebDb.mdb"
'Cn.Properties("Connect Timeout") = "5"
Cn.Properties("User ID") = "Admin"
Cn.Properties("Password") = ""
Cn.open
set OpenConnToGoodsInStock = Cn