我是使用ACCESS2000数据库的!

如何在某记录前插入新记录,而不是添加记录呢?

这是添加代码:
'Set Rst = CreateObject("ADODB.Recordset")
If (Rst.State = adStateOpen) Then
Rst.Close
End If
Rst.CursorLocation = adUseClient
Rst.Open "Select * From zymc2", Conn, adOpenKeyset, adLockPessimistic
Rst.AddNew
Rst.Fields("dm").Value = Text1.Text
Rst.Fields("xm").Value = Text2.Text

如何是RST.MOVE到指定位置进行插入新的记录呢?而RST.AbsolutePosition位置自动后移呢?