There is really no need to open Access.

Replace:
Dim objAccess As Access.Application
Set objAccess = CreateObject("access.Application")
objAccess.OpenCurrentDatabase ("C:\Documents and
Settings\Bharat.Odedra\Desktop\ATM Database.mdb")

With:
Dim db As Database
Set db = DBEngine.Workspaces(0).OpenDatabase("as above")

Of course, Microsoft DAO x.x Object Library must be checked
at the menu Tools | References.

HTH,
Merjet