Radimus:

Try this:

code:

break on


$TargetDatabase = "m:\msaccess\db1.mdb"
$TargetTable = "table1"

$SourceDatabase = "m:\msaccess\db2.mdb"
$SourceTable = "table1"


$access = olecreateobject ( "access.application" )


$rs =olecallproc ( $access, "OpenCurrentDatabase", "s",
"$TargetDatabase")


$docmd = val("&"+olegetproperty ( $access, "docmd" ))


$rs = olecallproc ( $docmd, "DeleteObject", "ss",
"0",
"$TargetTable" )


$rs = olecallproc ( $docmd, "TransferDatabase", "ssssss",
"0",
"Microsoft Access",
"$SourceDatabase",
"0",
"$SourceTable",
"$TargetTable" )


$rs = olecallproc ( $access, "CloseCurrentDatabase")


$rs = olecallproc ( $access, "Quit" )


$rs = olereleaseobject ( $docmd )


$rs = olereleaseobject ( $access )


exit


Shawn.