大家帮我看下这个查询怎么转vb

pascal331

INSERT INTO qingzhangjilu ( 姓名, 编号, 日期, 凭证编号, 摘要, 应收金额, 收回金额, 清账日期 )
SELECT jiedai.姓名, jiedai.编号, jiedai.日期, jiedai.凭证编号, jiedai.摘要, jiedai.应收金额, jiedai.收回金额, InputBox("删除单据原因，不填则默认为：删除录入错误单据","删除单据原因","删除录入错误单据") AS 清账日期
FROM jiedai
WHERE (((jiedai.id)=[Forms]![wljlxg]![Text82]));


怎么改成

docmd.runssql "INSERT INTO ……"

todaynew

dim strsql as string
strsql="INSERT INTO qingzhangjilu ( 姓名, 编号, 日期, 凭证编号, 摘要, 应收金额, 收回金额, 清账日期 )  "
strsql=strsql & " SELECT jiedai.姓名, jiedai.编号, jiedai.日期, jiedai.凭证编号, jiedai.摘要, jiedai.应收金额, jiedai.收回金额, InputBox("删除单据原因，不填则默认为：删除录入错误单据","删除单据原因","删除录入错误单据") AS 清账日期"
strsql=strsql & " FROM jiedai WHERE jiedai.id=" & [Forms]![wljlxg]![Text82]

docmd.runssql strsql