Application.Cur rentProject.Con nection

[carmela_wong]

Hello all,

I had a database in MS Access 2003 which I converted to Access 97. The
"CurrentProject " object causes an error in the code that was
automatically written by Access when I created the original database. I
have researched and this object is only available in version 2000 and
later. I need to get rid of the reference to "CurrentProject " and
replace it with something that will work in Access 97. Here's what the
code looks like:

Set con = Application.Cur rentProject.Con nection
Set rs = CreateObject("A DODB.Recordset" )
stSql = "SELECT * FROM [Switchboard Items] "
stSql = stSql & "WHERE [SwitchboardID]=" & Me![SwitchboardID] & "
AND [ItemNumber]=" & intBtn
rs.Open stSql, con, 1 ' 1 = adOpenKeyset

Any help is much appreciated.
Thanks for reading.
Carmela

[RoyVidar]

"ca**********@h otmail.com" <ca**********@h otmail.comwrote in message
<11************ **********@h48g 2000cwc.googleg roups.com>:

Hello all,

I had a database in MS Access 2003 which I converted to Access 97.
The "CurrentProject " object causes an error in the code that was
automatically written by Access when I created the original database.
I have researched and this object is only available in version 2000
and later. I need to get rid of the reference to "CurrentProject " and
replace it with something that will work in Access 97. Here's what
the code looks like:

Set con = Application.Cur rentProject.Con nection
Set rs = CreateObject("A DODB.Recordset" )
stSql = "SELECT * FROM [Switchboard Items] "
stSql = stSql & "WHERE [SwitchboardID]=" & Me![SwitchboardID] & "
AND [ItemNumber]=" & intBtn
rs.Open stSql, con, 1 ' 1 = adOpenKeyset

Any help is much appreciated.
Thanks for reading.
Carmela

I think you should be able to replace it with something like this

dim db as dao.database
dim rs as dao.recordset

set db = currentdb
' build the sql ...
set rs = db.openrecordse t(strSql)

' the close and release at the end of the routine
rs.close
set rs = nothing
set db = nothing

--
Roy-Vidar