Run-time error '3027': "Cannot update. Database or object ..

I have a program using VB6. It was working fine on Win98. Now I try to run the program on WinXP but failed.

The source code is list as below:

.
.
.
FileCopy "d:\test\acct.dat", "d:\test\temp.dat"

Set dbsText = OpenDatabase("d:\test", False, False, "TEXT;")
Set rstText = dbsText.OpenRecordset("temp.dat")
.
.
.
There is Run-time error '3027': "Cannot update. Database or object is read-only." when run the 3nd line "Set rstText = dbsText.OpenRecordset("temp.dat")".

Any idea?

Thanks,

You must have be using a more up-to-date version of Jet now. In one of the
service packs associated with Access 97, Access got more restrictive in
terms of what file extensions it would accept for text files.

Try

FileCopy "d:\test\acct.dat", "d:\test\temp.txt"

Set dbsText = OpenDatabase("d:\test", False, False, "TEXT;")
Set rstText = dbsText.OpenRecordset("temp.txt")

and see whether it works.

You can also check the following KB articles:
<a style='text-decoration: underline;' href="http://support.microsoft.com/?id=247861" target="_blank">http://support.microsoft.com/?id=247861</a>
<a style='text-decoration: underline;' href="http://support.microsoft.com/?id=245407" target="_blank">http://support.microsoft.com/?id=245407</a>
<a style='text-decoration: underline;' href="http://support.microsoft.com/?id=306144" target="_blank">http://support.microsoft.com/?id=306144</a>



--
Doug Steele, Microsoft Access MVP
<a style='text-decoration: underline;' href="http://I.Am/DougSteele" target="_blank">http://I.Am/DougSteele</a>
(No private e-mails, please)



"Jason" <anonymous RemoveThis @discussions.microsoft.com> wrote in message
news:1BF43053-EBFC-4A27-BA43-8B7B7904EC9A@microsoft.com...
 > I have a program using VB6. It was working fine on Win98. Now I try to run
the program on WinXP but failed.
 >
 > The source code is list as below:
 >
 > .
 > .
 > .
 > FileCopy "d:\test\acct.dat", "d:\test\temp.dat"
 >
 > Set dbsText = OpenDatabase("d:\test", False, False, "TEXT;")
 > Set rstText = dbsText.OpenRecordset("temp.dat")
 > .
 > .
 > .
 > There is Run-time error '3027': "Cannot update. Database or object is
read-only." when run the 3nd line "Set rstText =
dbsText.OpenRecordset("temp.dat")".
 >
 > Any idea?
 >
 > Thanks,
 ><!-- ~MESSAGE_AFTER~ -->