时间计算比较的问题？

Question

我做了个查询，是用现在的时间与表中的一个时间字段比较，查询在SQL的查询分析器通过了，但在VB中通不过（VB6，SQL2000），错误提示为程序执行超时！各位帮我看看，谢谢！    If Check1(7).Value Then
        If Trim(ComDay.Text) = "" Then
            sMeg = "使用周期不能为空"
            MsgBox sMeg, vbOKOnly + vbExclamation, "警告"
            ComDay.SetFocus
            Exit Sub
        Else
            If ComDay.Text = "一个月前使用过的" Then
               Term = "{fn NOW()}-indate<=30"
            MsgBox Term
               ElseIf ComDay.Text = "三个月前使用过的" Then
                      Term = "{fn NOW()}-indate>=30 and {fn NOW()}-indate<=90"
                      ElseIf ComDay.Text = "六个月前使用过的" Then
                             Term = "{fn NOW() }-indate>=90 and {fn NOW()}-indate<=180"
                             ElseIf ComDay.Text = "一年前使用过的" Then
                                 Term = "{fn NOW()}-indate>=180"
            End If
            
            dd(7) = True
            If dd(0) Or dd(1) Or dd(2) Or dd(3) Or dd(4) Or dd(5) Or dd(6) Then
                Txtsql = Txtsql & "and Term"
            Else
                Txtsql = Txtsql & "where Term"
            End If
        End If
    End If

Answer 1

数据库中的记录有130000多。但是把if...elseif...endif 这段去掉就没问题呀？