Run-time error 3343 - Is there a solution

[smartpat19]

I have the following code but have not found a solution online. Has anyone figured out a solution?

or would this relate to an authentication issue from my company's server? how do I get around that?

I have the following references:
Microsoft Access 16.0 Object Library
Microsoft DAO 3.6 Object Library

Sub Add_Record()

Application.ScreenUpdating = False


Dim db As database
Dim rs As DAO.Recordset


Set db = DAO.OpenDatabase("M:\Development\TEAM MANAGEMENT\Access\Development Team.accdb")
Set rs = db.OpenRecordset("Cost Schedule", dbOpenTable)


rs.AddNew
rs.Fields("Report_Name") = Range("A2").Value
rs.Fields("Project_Number") = Range("B2").Value
rs.Fields("Cost Month") = Range("C2").Value
rs.Fields("Acquisition Cost") = Range("D2").Value
rs.Fields("Hard Cost") = Range("E2").Value
rs.Update


rs.Close
db.Close


Application.ScreenUpdating = True




End Sub

Thank you,

 

[Leith Ross]

Hello smartpat19,

What version of Windows are you using?
What is the error message?

 

[smartpat19]

Hello smartpat19,

What version of Windows are you using?
What is the error message?

I am running windows 10, 64-bit

The error Message is: "Run-time error: '3443': Unrecognized database format "M:\Development\TEAM MANAGEMENT\Access\Development Team.accdb"

 

[RoryA]

DAO3.6 doesn't work with accdb file formats since it predates them. You need the Microsoft Office 16.0 Access Database Engine object library reference.

 

[smartpat19]

BEAUTIFUL! Thank you!!

 

[smartpat19]

Additionally, how would i go about adding the entire row of values to each field?

Is the best option to create ranges?

or is there a simpler option?