ok i tried this code now

Code:
Set AccessApp = New Access.Application
AccessApp.OpenCurrentDatabase ("\\10.70.34.7\it2\PMEW\PROJECTS\Billing System\revenue\rev system\LoginExample\Users.mdb")
Dim strDocName As String
Dim strWhere As String
    strDocName = "MyReport"
    strWhere = "[serial]=" & Me!txtserial
 AccessApp.DoCmd.OpenReport strDocName, acPreview, , strWhere
im not getting error but nothing is opening