在程序中写呀~~    我干过这样的事情~~你看看我以前有多蠢呀~~Dim rs As Recordset
Dim XX, i As IntegerXX = Data1.Recordset.Fields("idd")
If XX > 0 Then
datl.Execute "update fpdy set idd=idd+1 where idd>=" & XX
Set rs = datl.OpenRecordset("fpdy")
rs.AddNew
rs!idd = XX
rs.Update
rs.Close
Data1.RecordSource = "select * from fpdy order by idd"
Data1.Refresh
i = 1
Do While Not Data1.Recordset.EOF
i = i + 1
If i = XX + 1 Then Exit Do
Data1.Recordset.MoveNext
Loop
DBGrid1.SetFocus
End If