This is the beginning of my code:
Public Sub GetSkuSold(strQueryName As String)
Dim strSQL
Dim origStrSQL As Variant, begStrSQL, endStrSQL, x, ctStrClause
Dim minDt, maxDt, intPos1 As Integer, intPos2 As Integer
Dim ctCriteriaGrtr, ctCriteriaLess
Dim db As Database
Dim qd As DAO.QueryDef...