Path=X:\AHK\acc.accdb ;这个路径你来修改
objAccess := ComObjCreate("Access.application") ; Access 对象
myData:=objAccess.NewCurrentDatabase(Path)
myTable := myData.CreateTableDef("Contacts") ;待完善,创建表
objAccess.CloseCurrentDatabase
objAccess.Quit