连续扫描输入有关问题

连续扫描输入问题
我用扫描枪扫描输入订单，用了下面的代码：
Private Sub Text23_GotFocus()
    If Len(Text23.Text) > 0 Then
        Text23.SelStart = 0
        Text23.SelLength = Len(Text23.Text)
    End If
End Sub

本来打扫描后把数据写入数据库，然后在扫描输入的地方把数据清空，以便下次输入。
可是我在输入的时候，发现输入过后，前面输入的数据不消失，为什么？
比如开始输入123，扫描后自动加回车，数据写入数据库中。我的输入按钮设置了默认。但当我再输入456的时候，变成了123456写入数据库中了


[解决办法]
怎么没人回答啊？
[解决办法]
唉终于找到为什么了