文本框查询输入问题

文本框查询输入字符时，字符黑底变成改写状态，代码如下。能不能象“示例（附件）”一样，输入字符增减自如？查询

Private Sub Text2_Change()
    Dim strWhere As String

    strWhere = Trim$(Me.Text2.Text)
    If Len(strWhere) > 0 Then
        strWhere = " WHERE [标准号] & [标准名称] Like '*" & strWhere & "*'"
    End If
 
 Me.RecordSource = "SELECT * FROM 标准" & strWhere
Me.Text2.SetFocus

End Sub