what Reference to be added to conncect to MS Access (1 Viewer)

[SLKDS]

Which reference to be added to use Recordset object in Excel VBA.
I added "Microsoft DAO 3.6 Object Library" reference but still its not working.
I tried I tried DAO.Reader,but still it is not working.

Plz help me on this.

Thank in advance

Sub t()

'Insert data in DB
Dim dbs As Object
Dim DBpath As String
Dim rst As Recordset, strSQL As String, lngRecords As Long

 DBpath = "D:\abc.accdb"
Set dbs = CreateObject("Access.Application")

dbs.OpenCurrentDatabase DBpath

'Check order there in DB or not
strSQL = "SELECT * FROM Product WHERE OrderNo" _
    & " ='" & Order_No & "';"

Set rst = dbs.OpenRecordset(strSQL) ----Error line say Object doesn't support this method
   'Populate the Recordset.
 rst.MoveLast
 lngRecords = rst.RecordCount
 
dbs.Execute " INSERT INTO Product (OrderNo)" _
            & " values('" & Order_No & "')"

dbs.Close

End Sub

 

[vbaInet]

If you want to connect directly to the data in an Access db, you can use ODBC or OLE DB connection via an ADODB recordset. Here are the connection strings:

https://www.connectionstrings.com/microsoft-access-accdb-odbc-driver/
https://www.connectionstrings.com/access/

Or if you want to be able to manipulate objects in Access as well as get data, then you can add a reference to the Microsoft Access X.0 Object Library and use the Access Application object.