主题：插入行问题

使用[插入行]按钮操作，提示“此表不支持插入行功能”。我使用的是自定义的菜单和工具栏。[插入行]按钮代码是从系统菜单移植过来的。用系统菜单，插入行功能正常。以下是系统菜单中的代码，如果要用到自定义菜单和工具栏中，代码应如何？
当前表插入行
CurrentTable.Rows.InsertNew()
上移行
With CurrentTable
    If .Position > 0 Then
        .Current.Move(.Position - 1)
    End If
End With
下移行
With CurrentTable
    If .Position < .Count - 1 Then
        .Current.Move(.Position + 1)
    End If
End With