It might be easier to create a macro in Access to do the transferspreadsheet
function then call the macro.

Dim appAccess, strConPathToDB
strConPathToDB = "D:\data\Access\db1.mdb"
Set appAccess = CreateObject("Access.Application.11")
appAccess.OpenCurrentDatabase strConPathToDB
appAccess.DoCmd.RunMacro "TestMacro"
appAccess.Quit
Set appAccess = Nothing

--
Regards,

Dave Patrick ....Please no email replies - reply in newsgroup.
Microsoft Certified Professional
Microsoft MVP [Windows]
http://www.microsoft.com/protect

"Access" wrote:
|i wish to create a button in excel worksheet by clicking on which i can
| transfer the data in the master sheet to a table in access.
|
| please help me with the VBA code
|
| Many thanx in advance