Hi,

I keep getting an error message that the database is read only. I have done quite a bit with the folder and the database to allow access. I pretty sure the problem lies within the code.

Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Users\Wutcha\Desktop\WutchaKnow\NamesAnd Numbers.mdb"
rst.Open "SELECT DISTINCT [Company], [Website], [UserName], [Password], [QuestionA], [AnswerA], [QuestionB], [AnswerB], [QuestionC], [AnswerC] FROM Passwords ORDER BY [Company];", _
cnn, adOpenKeyset, adLockPessimistic

rst.AddNew
Do Until rst![Company] = Null
rst.MoveNext
Loop
rst.Close
cnn.Close
Set rst = Nothing
Set cnn = Nothing

Any suggestions will be much appreciated. Thanks in advance!

Hi...

select distinct, addnew, do until (after an add new)... All this code doesn't make any sense... maybe that why is not working???

__________________
HTH

Gonzalo

================================================== =========
Read this if you want to know how to get a correct reply for your question.
(Took that from Doug signature and he Took that from Peter profile)
================================================== =========
My programs achieved a new certification :
WORKS ON MY MACHINE
================================================== =========
I know that CVS was evil, and now i got the proof.
================================================== =========

Well, I have the code behind a submit button in a word document. I'm wanting to add a new row to the access database with some information in the text boxes that are in the word document. I probably should have said this earlier.

That's ok, but you are doing a add new, and instantly try to go to the next record...

there is something more missing here... you are never passing data to the recordset!

__________________
HTH

Gonzalo

================================================== =========
Read this if you want to know how to get a correct reply for your question.
(Took that from Doug signature and he Took that from Peter profile)
================================================== =========
My programs achieved a new certification :
WORKS ON MY MACHINE
================================================== =========
I know that CVS was evil, and now i got the proof.
================================================== =========