使用Text1.Setfocus為自動將資料寫入資料庫?(編號：5728)

請問..程式如下:
Private Sub Text1_Change(Index As Integer)
If Len(Text1(Index).Text) = Text1(Index).MaxLength Then
　　　Select Case Index　　　
　　　　 Case 10 ' 最後一個TextBox　　　
　　　　　　Text1(1).Setfocus
　　　　 Case Else
　　　　　　Text1(Index + 1).Setfocus
　　　End Select
　 End If
End Sub
可是我發現..只要是有滿足只上式子的.也就是說..有將游標移到下一個TextBox的那個欄位竟然會將資料自動的寫入資料庫中..
我下了CancleUpdate竟然無效....而其他沒有將遊標移到下一個TextBox卻不會發生這種情形..請問這是何解.!?..謝謝