怎样能实现后面不加1

下面这段代码 是 向 文本框1 中输入姓名 在 文本框2 当中 自动就显示了 亲加名子最后一个字

如果表名当中 包含 名子最后一个字有重名的 自动就显示 后面加上 1 再有就又加1

删除哪些不必要的代码才实现 后面不加1 请老师们指点

Private Sub 姓名_AfterUpdate()
Dim strTemp As String
Dim lngCount As Long

If  Nz(Me.姓名)="" Then Exit Sub
strTemp=Right(Me.姓名,1)
Me.文本框2="亲" & strTemp
If DCount("*","表名","[姓名] Like '*" & strTemp & "'")>0 Then
   lngCount=DCount("*","表名","[姓名] Like '*" & strTemp & "#'")+1
    Me.文本框2=Me.文本框 & lngCount
End If
End Sub