为什么我的语句没能实现要求呢  问题出在那里
Dim StrSQL As String
    StrSQL = "select * from rsxx where "        '//给定义好的字符变量赋予SQL语句
    '//判断单选框中时,判断姓名单选框选中时
    If optname.Value = True Then
       StrSQL = StrSQL & "员工姓名 = '" & Trim(txygname.Text) & "'"
       '//判断单位单选框选中时
       ElseIf optdanwei = True Then
              StrSQL = StrSQL & "岗位 = '" & Trim(txygdanwei.Text) & "'"
       '//判断岗位单选框选中时
       ElseIf optgangwei = True Then
              StrSQL = StrSQL & "岗位 = '" & Trim(txyggwei.Text) & "'"
       '//判断学历单选框选中时
       ElseIf optxueli = True Then
              StrSQL = StrSQL & "学历 = '" & Trim(txygxueli.Text) & "'"
       '//判断政治面貌单选框选中时
       ElseIf optzzmm = True Then
              StrSQL = StrSQL & "政治面貌 = '" & Trim(txzzmm.Text) & "'"
       '//判断性别单选框选中时
       ElseIf optsex = True Then
              StrSQL = StrSQL & "性别 = '" & Trim(txsex.Text) & "'"
       '//判断合同时间单选框选中时
       ElseIf opthttime = True Then
              StrSQL = StrSQL & "劳动合同日期 between #" & dtphetong1.Value & "# and #" & dtphetong2.Value & "#" & ""
          
    
        If RsQRecord.State = adStateClosed Then
           RsQRecord.Open StrSQL, DBCON, adOpenKeyset, adLockOptimistic, adCmdText
        End If
            
        Set dgrecord.DataSource = RsQRecord.DataSource
        lblcount.Caption = RsQRecord.RecordCount        '//将记录条数显示在标签上
        dgrecord.Refresh        '//刷新网格
        RsQRecord.Close             '//关闭记录集
        txygname.Text = Empty        '//请空文本框
        txygdanwei.Text = Empty
        txyggwei.Text = Empty
        txygxueli.Text = Empty
        txzzmm.Text = Empty
        txsex.Text = Empty
    Else
    
    If RstQRecord.State = adStateClosed Then
        RstQRecord.Open "rsxx", DBCON, adOpenKeyset, adLockOptimistic, adCmdTable
    End If
        Set dgrecord.DataSource = RstQRecord.DataSource     '//设置网格的数据源
        lblcount.Caption = RstQRecord.RecordCount
        dgrecord.Refresh        '//刷新网格
        RstQRecord.Close             '//关闭记录集
        txygname.Text = Empty        '//请空文本框
        txygdanwei.Text = Empty
        txyggwei.Text = Empty
        txygxueli.Text = Empty
        txzzmm.Text = Empty
        txsex.Text = Empty
        
    End If