把网格查询写成vb代码

INSERT INTO 个人业务统计 ( 数量, 总类, 业务代表, 规格型号, 商品名称, 金额 )
SELECT Round((([数量]/Mid(发料单明细历史.规格型号,(InStr(发料单明细历史.规格型号,"*")+1)))),4) AS 数量1, 商品信息编号.总类, 发料单历史.业务代表, 发料单明细历史.规格型号, 发料单明细历史.商品名称, 发料单明细历史.金额
FROM 发料单历史 INNER JOIN (发料单明细历史 INNER JOIN 商品信息编号 ON (发料单明细历史.规格型号 = 商品信息编号.规格型号) AND (发料单明细历史.商品编号 = 商品信息编号.商品编号)) ON 发料单历史.发料单号 = 发料单明细历史.发料单号
WHERE (((商品信息编号.总类) In ([Forms]![业务量统计]![类别1])) AND ((发料单历史.业务代表) Not Like "-" And (发料单历史.业务代表) In ("王强","杨鑫凯","易卫东","曾勇")) AND ((发料单历史.发料日期) Is Not Null And (发料单历史.发料日期) Between [Forms]![业务量统计]![起始日期] And [Forms]![业务量统计]![截止日期]) AND ((发料单明细历史.备注) Is Null));

以上是通过sql粘贴过来的网格查询，用什么方法把他变成vb代码，直接写在命令控件上。谢谢您额解答。