谁帮忙把下面的代码改成存储（SQLSe）

Question

      For intTemp = 0 To ViewPlanStructureInformationArrayCount - 1 Step 1        strSQLString = "select IsNull(Sum(PlanStructureAmountKG),0) ExportationAmount,IsNull(Sum(PlanStructureWasteAmountKG),0) ExportationWasteAmount,IsNull(Sum(UseWaste2QuantityE),0) UseWaste2QuantityE"
        strSQLString = strSQLString & " from T_BookPlanStructureUseExportation where BookId='" & ViewPlanStructureInformationArray(intTemp).Bookid & "' and StructureWaveCode='" & ViewPlanStructureInformationArray(intTemp).PlanStructureWaveCode & "' and DeleteFlag='0'"        
        Debug.Print strSQLString
        cDB.mthdExistCHK (strSQLString)
        If cDB.prRS.RecordCount > 0 Then
            Do
                ViewPlanStructureInformationArray(intTemp).ExportationAmount = ViewPlanStructureInformationArray(intTemp).ExportationAmount + cDB.prRS("ExportationAmount")
                ViewPlanStructureInformationArray(intTemp).ExportationWasteAmount = ViewPlanStructureInformationArray(intTemp).ExportationWasteAmount + cDB.prRS("ExportationWasteAmount")
                ViewPlanStructureInformationArray(intTemp).ExportationWasteAmount2 = ViewPlanStructureInformationArray(intTemp).ExportationWasteAmount2 + cDB.prRS("UseWaste2QuantityE")
                cDB.prRS.MoveNext
            Loop While Not cDB.prRS.EOF
        End If
        cDB.prRS.Close
    Next intTemp