VB技巧问答10000例,是一个教程

				如 果 你 要 在 A之 前 插 入 一 条 记 录 ， 可 以 先 将 记 录 A及 之 后 的 所 有 记 录 的 序 号 加 一 ， 然 后 添 加 记 录 并 将 序 号 设 置 为 A的 序 号 ， 如 ： 
				     Dim rd As Recordset 
				     Set rd = Data1.Database.OpenRecordset("SELECT * FROM table1 WHERE ID>=2") 
				     rd.MoveLast 
				     Do While Not rd.BOF 
				     rd.Edit 
				     rd("ID") = rd("ID") + 1 
				     rd.Update 
				     rd.MovePrevious 
				     Loop 
				     rd.Close 
				     Data1.Recordset.AddNew 
				     Data1.Recordset("ID") = 2 
				     Data1.Recordset("Name") = "New" 
				     Data1.Recordset.Update