Dim dbs As Object
Set dbs = CreateObject("Access.Application")
dbs.OpenCurrentDatabase "..Path of DB.accdb"
Dim rst As Recordset
strSQL = "SELECT * FROM Product WHERE OrderNo" _
& " ='" & Order_No & "';"
Set rst = dbs.OpenRecordset(strSQL) ----Error line say Object doesn't support this method