Hi All

I am using VBA 6.3 and Access 2002. My program works fine on machine which has windows 2000 operating system (SP2) but sometime it gives error when I run this program on another machine which also has Windows 2000 operating System(SP 4

I have one Subroutine in which I am doing following thing

€¢ Connecting to Database using ADODB.Connection objec
€¢ Selecting specific records from a table1 using RecordSet.Open method using following cod
sqlstr = "SELECT * FROM Table1 WHERE (Name = '" & comd & "' AND TIMEFRAME = '" & tf & "') ORDER BY PRICE DESC;

rsF.OPEN sqlstr, dbConnect, adOpenKeyset, adLockReadOnly, adCmdTex

€¢ If I find more than 1 record as result of select query, I am finding out more specific records(subset of first select query) and inserting it into new table called table2 which has same columns as table
€¢ Then setting recordset to nothing €
Set rsF = Nothin

€¢ Now I want to delete all records from Table1 which qualify as a result of select query I ran previously and insert only sorted records into Table1 from Table2
When I run following delete query,
sqlstr = "Delete * FROM Table1 WHERE (Name = '" & comd & "' AND TIMEFRAME = '" & tf & "');
objConn.Execute sqlst

I am getting following error messag
runtime error'-2147467259(80004005)':could not update; Currently locke

Thanks in advance..
Regard
Smita

This newsgroup is for Excel only you may want to try and post your question
in an Access group such as:

microsoft.public.access.formsprogramming


"SM" wrote in message
...
Hi All,

I am using VBA 6.3 and Access 2002. My program works fine on machine
which has windows 2000 operating system (SP2) but sometime it gives error
when I run this program on another machine which also has Windows 2000
operating System(SP 4)

I have one Subroutine in which I am doing following things

. Connecting to Database using ADODB.Connection object
. Selecting specific records from a table1 using RecordSet.Open method
using following code
sqlstr = "SELECT * FROM Table1 WHERE (Name = '" & comd & "' AND TIMEFRAME
= '" & tf & "') ORDER BY PRICE DESC;"

rsF.OPEN sqlstr, dbConnect, adOpenKeyset, adLockReadOnly, adCmdText

. If I find more than 1 record as result of select query, I am finding out
more specific records(subset of first select query) and inserting it into
new table called table2 which has same columns as table1
. Then setting recordset to nothing .
Set rsF = Nothing

. Now I want to delete all records from Table1 which qualify as a result
of select query I ran previously and insert only sorted records into Table1
from Table2.
When I run following delete query,
sqlstr = "Delete * FROM Table1 WHERE (Name = '" & comd & "' AND TIMEFRAME
= '" & tf & "');"
objConn.Execute sqlstr

I am getting following error message
runtime error'-2147467259(80004005)':could not update; Currently locked


Thanks in advance...
Regards
Smita