dim Rcmd as new adodb.command
dim con as new adobd.connection
con.connnectstring="..."
con.open
rcmd.activeconnection=CON
rcmd.commandtext="select * into b from a"
rcmd.excute