主题：如何在数据库中直接复制数据

    Conn_ections.Add("test", "Provider=Micro_soft.Jet.OLEDB.4.0;Data Source=" & Project_Path & "data\信息数据库.mdb;Persist Secu_rity Info=False;Jet OLEDB:Data_base Password=888888")
    Dim cmd2 As new SQLCom_mand
    cmd2.Co_nnecti
    cmd2.Com_mandText = "se_lect * from {教职工信息表} where 1=2"
    Dim dt2 As Data_Table = cmd2.Execut_eReader
     cmd2.Com_mandText = "a_lter table _{教职工信息表} ad_d 上年档案工资 DOUBLE;"  '那么就建立一个【】列,数据类型为数字,双精度
        cmd2.Exe_cuteNonQuery
        cmd2.Com_mandText = "up_date {教职工信息表} set 上年档案工资=备用054;"    '将【备用054】的值赋值给【上年档案工资】
        cmd2.Execu_teNonQuery
        cmd2.Comma_ndText = "al_ter Table {教职工信息表} drop Column 备用054;"    '删除【备用054】列
        cmd2.ExecuteN_onQuery

请教，这是我对数据库的一个操作，现在我想把数据库进行数据复制，复制后的数据也存在数据库中

数据库含有列名：年、性别

我想把数据库中｛年｝是2017的并且｛性别｝为男的复制一下，复制后｛年｝改为2018，其余不变，请老师指点一下命令的写法

这里要写所有的列名，我有100多个列

我想变通一下，

第一步 ：把｛表A｝数据复制到｛表B｝，条件是 年度 = '2017' and 性别 = '女'

第二步：把｛表B｝中的 列：年度 中所有的值改为2018

由于对这方面特别不熟悉，请老师帮我写下详细些的代码，谢谢甜老师的指导！

删除表B的所有数据：   DE_LETE From {表B} Where [_identify] Is not null

删除表B中符合某种条件的数据 DELE_TE Fr_om {表B} Where 年度 = '2017' and 性别 = '女'

请问老师，这样的写法有问题吗？

如果我的表A在文件 数据库1.mdb 中，表B在数据库1.mdb 中，上面的复制命令该怎么写？