如何将查询数据写入到指定的表

自己已搞定：

[code]

Private Sub Command0_Click()

     DoCmd.SetWarnings 0
     DoCmd.RunSQL "DELETE T_Stock.* FROM [T_Stock];"
    
     DoCmd.RunSQL "INSERT INTO [T_Stock] ( P_Pro_In_Id, P_Cust_Code, P_Cust_Name, P_Cust_JName, P_Production_Code, P_JiZu_Code, P_MuCai_Code, P_Kun_Code, P_Lot, P_Jian_Code, P_Type, P_Thick,P_Width,P_Long,P_Product_ID,P_Weight,P_Sheet,P_Cust_ProCode,P_Cust_PO,P_MO_Code,P_MO_ID,P_Remark ) " & _
                  "SELECT Q_Stock.P_Pro_In_Id, Q_Stock.P_Cust_Code, Q_Stock.P_Cust_Name, Q_Stock.P_Cust_JName, Q_Stock.P_Production_Code, Q_Stock.P_JiZu_Code, Q_Stock.P_MuCai_Code, Q_Stock.P_Kun_Code, Q_Stock.P_Lot, Q_Stock.P_Jian_Code, Q_Stock.P_Type, Q_Stock.P_Thick,Q_Stock.P_Width,Q_Stock.P_Long,Q_Stock.P_Product_ID,Q_Stock.P_Weight,Q_Stock.P_Sheet,Q_Stock.P_Cust_ProCode,Q_Stock.P_Cust_PO,Q_Stock.P_MO_Code,Q_Stock.P_MO_ID,Q_Stock.P_Remark  " & _
                  "FROM Q_Stock;"
     DoCmd.SetWarnings -1
    
     MsgBox "库存更新完成!"

End Sub
[/code]