I take it back ... it is still not working ...

Here is the entire subroutine ....
Code:
Public Sub BuildStats_ACCESS()
On Error GoTo Err_BuildStats_ACCESS
    Dim db As Database
    Dim ws As Workspace
    Dim qry As QueryDef
    Dim strsql As String
    Dim frm As Form
    Dim calcdate As Date
    Dim strDate As String
    Dim i As Integer
    Dim imt As Integer
    Dim dToDate As Date
    Dim dFromDate As Date
    On Error GoTo Err_BuildStats_ACCESS

    Set ws = DBEngine.Workspaces(0)
    Set db = ws.OpenDatabase(sStatsPath)
    
    'Set dates to run until now
    dFromDate = "1/1/2007"
    dToDate = Format(Now(), "mm/dd/yyyy")
             
    On Error Resume Next        ' Need just in case object does not exist
    imt = DateDiff("d", dFromDate, dToDate)
        
    calcdate = dFromDate

    For i = 0 To imt
        db.TableDefs.Delete ("Stp01-DailyDetail")
        db.TableDefs.Delete ("Stp02-ReschedEst")
        db.TableDefs.Delete ("Stp03-Manhours")
        
        'Remove data for date
        Set qry = db.QueryDefs("DELETE")
        qry.Parameters("calc_date") = calcdate
        qry.Execute
        qry.Close
        
        Set qry = db.QueryDefs("ACCESS_Raw Data - D")
        qry.Parameters("calc_date") = calcdate
        qry.Execute
        qry.Close
        
        Set qry = db.QueryDefs("ACCESS_Res-Est-S")
        qry.Parameters("calc_date") = calcdate
        qry.Execute
        qry.Close
        
        Set qry = db.QueryDefs("ACCESS_Manhour-S")
        qry.Parameters("calc_date") = calcdate
        qry.Execute
        qry.Close
    
        Set qry = db.QueryDefs("Answers-S")
        qry.Parameters("calc_date") = calcdate
        qry.Execute
        qry.Close
    
        calcdate = DateAdd("d", 1, calcdate)

        If calcdate = "11/21/2008" Then
            MsgBox "Get Ready"
        End If
    Next i
    db.Close
    ws.Close
    MsgBox "Build Complete"
Exit_BuildStats_ACCESS:
    Exit Sub

Err_BuildStats_ACCESS:
    MsgBox Err.Description
    Resume Exit_BuildStats_ACCESS
End Sub
let me know if you see anything. I cannot figure this out.