[求助]INSERT INTO 语句的问题

todaynew

williamwangc 发表于 2011-7-24 22:15
Private Sub save_ry_Click()
Dim str_insert_输入 As String
Dim str_insert_历史库 As String

str_insert_历史库 = "insert into [外协单位人员历史库]（[所属外协单位],[姓名],[性别],[身份证号码],[年龄],[工种],[特种证号码]） select [所属外协单位],[姓名],[性别],[身份证号码],[年龄],[工种],[特种证号码] from [新进外协人员查询表] where 身份证号='" & Me.sfz.Value & "'"