在VBA中使用FOR循环多次运行sql查询

Question

我试图在VBA中的for循环中运行SQL查询。以下是我的查询，它没有给出任何结果而是给出#value错误。我是VBA编程的新手，如果有人可以请告诉我我做错了什么。

j = Ason - Strdt

For i = 0 To j

strSQL = "select SUM(isnull(round(debit_bal,2),0)) - SUM(isnull(round(credit_bal,2),0)) from VDetail where Act_Code between Starting_Account & "' and '" & Ending_Account & "' and V_Date between convert(VARCHAR(10),'01/01/2007',10) and  convert(VARCHAR(10),
& DateAdd(d, i, Strdt) & "',10) "

Set oRsSQL = oConSQL.Execute(strSQL)

sumv = oRsSQL.Fields(0).Value + sumv


Next i


get_balance = sumv

Strdt是我希望它开始汇总数据的日期，而Ason是它应该总和的日期。

任何帮助将不胜感激。