增加、删除MSHFlexGrid1 控件一条记录 ，的代码怎么写呀，100

Question

AddItem 方法 (MSHFlexGrid)
      该方法将一个行添加到 MSHFlexGrid 控件中。不支持命名参数。语法object.AddItem (string, index, number)AddItem 方法的语法包含以下部分：部分 描述 
object 对象表达式，其值是“应用于”列表中的对象。 
item 字符串必需的。字符串表达式，它在新增行中显示。可以用制表符 (vbTab) 来分隔每个字符串，从而将多个字符串（行中的多个列）添加进去。 
Index 可选的。Long 类型，它代表了控件中放置新增行的位置。对于第一行来说，index = 0。如果省略 index，那么新增行将成为带区中的最后一行。注意 index 是 MSHFlexGrid 中的 BandColIndex。 
number 可选的。Long 值，指出添加行的带区号。 
说明如果 MSHFlexGrid 不包含带区（即它被绑定到一个非层次结构类型的 Recordset），那么 BandNumber 参数将是可选的。即使指定了它的值，指定值也必须为 0。如果 BandDisplay 属性被设置为水平的，而 MSHFlexGrid 被绑定到一个分层结构的 Recordset，则 BandNumber 参数将是必需的。如果 BandDisplay 属性被设置为垂直的，那么只有当带区有二义性的时候 BandNumber 参数才是必要的。index 参数永远是可选的。*****************************
RemoveItem 方法 (MSHFlexGrid)
      运行时从 MSHFlexGrid 中删除一行。这一属性不支持命名的参数。语法object.RemoveItem(index, number)RemoveItem 方法的语法包含如下部分：部分 描述 
object 一个对象表达式，其值为“应用于”列表中的一个对象。 
index 一个整数，表示 MSHFlexGrid 中要删除的行。对于第一行，index=0。 
number 一个 Long值，指定要从中删除行的带区。 
说明这一方法删除指定的整个行。要不删除行来清除数据，使用 Clear 方法。如果 BandDisplay 属性被设置为水平并且 MSHFlexGrid 被绑定到一个分层的记录集， number 是必需的。如果 BandDisplay 属性被设置为竖直，number 只在带区意向不明时才需要。在包含子记录的带区内删除一个行时，子记录被自动地删除。

Answer 1

如果跟数据库有关，可以在增加、删除数据库记录 时，重新提取记录
再:set MSHFlexGrid1.datasource=rs

Answer 2

AddItem 和 RemoveItem 方法 (MSHFlexGrid) 示例
在该示例中，用 AddItem 方法将 100 项添加到 MSHFlexGrid 中。要试用此例，可以将代码粘贴到窗体（该窗体带有命名为 MSFlexGrid1 的 MSHFlexGrid 控件）的声明部分，然后按下 F5 键，并单击该窗体。注意   如果您使用 MSFlexGrid，请用“MSFlexGrid1”替换“MSHFlexGrid1”。Private Sub Form_Click ()
   Dim Entry, i, Msg               '声明变量。
   Msg = _
   "Choose OK to add 100 items to your MSFlexGrid."
   MsgBox Msg   '显示消息。
   MSHFlexGrid1.Cols = 2         '每行有两个字符串。
   For i = 1 To 100   '从 1 计数到 100。
      Entry = "Entry " & Chr(9) & I   '创建项。
      MSHFlexGrid1.AddItem Entry      '添加项。
   Next i
   Msg ="Choose OK to remove every other entry."
   MsgBox Msg                     '显示消息。
   For i =1 To 50               '决定怎样删除
      MSHFlexGrid1.RemoveItem i   '其它每一项。
   Next I                        
   Msg ="Choose OK to clear all items."
   MsgBox Msg                     '显示消息。
   MSFlexGrid1.Clear               '清除列表框。
End Sub

Answer 3

更正楼上的Private Sub Form_Click ()
   Dim Entry, i, Msg               '声明变量。
    ........
    ........
   MsgBox Msg                     '显示消息。   '*******还有一个MSFlexGrid1没替换过来*****
   MSHFlexGrid1.Clear               '清除列表框。End Sub