[5分]这段追加查询代码究竟错在哪里?为何实现不了呢?

我想将药品进库表中的相关字段追加到药品库存明细表中去,用以下代码却实现不了,结果为空.代码如下:

Private Sub Form_Load()

    CurrentDb.Execute "DELETE FROM tblypkcmx"
    Me.Requery
    Dim sql1 As String
    sql1 = "INSERT INTO tblypkcmx ( jcid, ypid, sccj, ypgg, dwmc, yxrq,jysl, ypjj, lsj )" _
         & "SELECT tblypjcmx.jcid, tblypjcmx.ypid, tblypjcmx.sccj, tblypjcmx.ypgg, tblypjcmx.dwmc, tblypjcmx.yxrq,tblypjcmx.jysl, tblypjcmx.ypjj, tblypjcmx.lsj" _
         & " FROM tblypjcmx"
    DoCmd.SetWarnings False
    DoCmd.RunSQL sql1
    DoCmd.SetWarnings True
     Me.Refresh
End Sub

以上代码在frmypkcmx_child窗体中.敬请各位老师给予帮助,本人多多感谢了.