Recordset Addnew for an mdb

[Murtaza]

Hi all

Looking for assistance on an issue in Excel (2000 sp2 / pro) and access 2003.

I have a database and in my VB code have created a ADODB.connectio n to it. It is called conn. I have used it for sqlPassThrough queries as follows:

modfindSQL = "SELECT ....."
 
Set modfindrs = conn.Execute(modfindSQL, , dbSQLPassThrough)

This works fine. Problem arises when I try to use addnew. I recognise I won't be able to use the above and have tried the following:

Set rstProjects = conn.openRecordset("Projects", dbOpenDynaset, dbAppendOnly, dbopentable)
 
    With rstProjects
        .AddNew
        ![Project ID] = ProjectID
        .
        .
        .
      .Update
    End With

I have the following references:

VB for all Applications
MS Excel 9.0 Object Library
OLE Automation
MS Forms 2.0 Object Library
MS Office 9.0 Object Library
MS ActiveX Data Objects 2.5 Library

I have tried enabling the following too:

MS ActiveX Data Objects Recordset 2.6 Library
MS ADO Ext 2.6 for DLL and Security

With no avail. The error I get is:

Runtime Error '3001':
Application-defined or object-defined Error

and i have also tried :

Set rstProjects = conn.Execute("Projects", , dbSQLPassThrough)
Set rstProjects = conn.Execute("Projects", , dbConsistent)
etc
 

Any help will be much appreciated..

Many thanks

[Murtaza]

Solved:

Did not ahve DAO objects. Need refferences to them, then use a DAO.Conn or use a DAO.database object and then you can use openRecordset.. .

Thanks