Trying to add a new record

[primagic]

I am new to Microsoft ADP files and just discovered that my code that used to work in an mdb file does not work in an adp project.

I am using the following code to try to add new records to the database

Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim var As Variant
    Set db = CurrentDb
    Set rs = db.OpenRecordset("NextTaskCriteria")
    
    
    
        
    For Each var In Me.lstSources.ItemsSelected
        With rs
            .AddNew
            .Fields("Source") = CLng(Me.lstSources.Column(0, var))
            .Fields("EmployeeID") = Me.SelectedEmployeeID
            .Update
                 
        End With
    Next
    
    MsgBox "Updated successfully...", vbInformation
    
       
    rs.Close
    db.Close
    
    
        
    Set rs = Nothing
    Set db = Nothing

I get the error Object Variable or With Block variable not set on the line Set rs = db.OpenRecordset("NextTaskCriteria")

 

[Axworthy]

That's because you don't have the object CurrentDb in an Access Data Project. You can try this:

dim var as Variant
For Each var In Me.lstSources.ItemsSelected
    doCmd.RunSQL "insert into NextTaskCriteria (Source, EmployeeID) values (" _
        & CLng(Me.lstSources.Column(0, var)) & ", " & Me.SelectedEmployeeID & ");"
Next

 

[primagic]

Worked perfectly, Thank you very much. I had to remove the line Set rs = db.OpenRecordset("NextTaskCriteria") and also rs.Close then it worked