急急急!!有谁用过aresdesign设计报表,请指点指点(在线等待)

[snowfox_yy]

我在使用aresdesign时
执行以下代码
Private Sub cmd_Click()
AResCtl1.InitAresData

'插入数据
Dim dqrq As String
dqrq = Format(Now(), "yyyy-mm-dd")
AResCtl1.SetVarData "打印日期", 0, dqrq
AResCtl1.InsertRow "表中", 0, rsfl.RecordCount
rsfl.MoveFirst
For i = 0 To rsfl.RecordCount - 1
AResCtl1.SetVarData "客户代码", i, rsfl("khdm")
AResCtl1.SetVarData "客户名称", i, rsfl("khmc")
AResCtl1.SetVarData "数量", i, rsfl("flsl")
AResCtl1.SetVarData "返利金额", i, rsfl("flje")
rsfl.MoveNext
next i
AResCtl1.ReSetPageCount 1
AResCtl1.SetCurPage 1
AResCtl1.UpdateCurPageData
AResCtl1.PrintPreview
End Sub
每执行一次都会把重复的数据又一次插入,请问如何解决这一问题?????