Case Else
strSQL = "SELECT Sum(SumOfCommission) AS Total FROM qryAboveBucketSPIFF "
1)-------> rst.Open strSQL, CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly
'Debug.Print strSQL
End Select
2)-------> rst.Open strSQL, CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly
|