我是这样写的：
Private Sub Command4_Click()

'Set Rst = CreateObject("ADODB.Recordset")
If (Rst.State = adStateOpen) Then
Rst.Close
End If
Rst.CursorLocation = adUseClient
Rst.Open "Select * From 亲戚信息", Conn, adOpenKeyset, adLockPessimistic

Rst.Fields("姓名").Value = Text1.Text
Rst.Fields("单位名称").Value = Text2.Text
Rst.Fields("办公电话").Value = Text3.Text
Rst.Fields("办公电话二").Value = Text4.Text
Rst.Fields("手机").Value = Text5.Text
Rst.Fields("手机二").Value = Text6.Text
Rst.Fields("宅电").Value = Text7.Text
Rst.Fields("宅电二").Value = Text8.Text

Rst.Fields("电子邮箱").Value = Text9.Text
Rst.Fields("电子邮箱二").Value = Text10.Text
Rst.Fields("QQ号").Value = Text11.Text
Rst.Fields("QQ号二").Value = Text12.Text
Rst.Fields("地址").Value = Text13.Text
Rst.Fields("邮政编码").Value = Text14.Text
Rst.Fields("其他").Value = Text15.Text

Rst.Update

MsgBox "修改成功！"
Text16.Text = Rst.RecordCount
CmdAdd.Visible = True
CmdAdd.Enabled = True
Command2.Visible = False
Command4.Visible = False
Command3.Visible = True
Command3.Enabled = True
CmdDelete.Enabled = True
CmdPrevious.Enabled = True
CmdNext.Enabled = True
CmdFirst.Enabled = True
CmdLast.Enabled = True
End Sub

当点COMAND4时，发现新记录在第一条上，要修改的仍然存在，仍然在那个位置，而原来的第一条缺消失了！！！

如何使指针指向指定位置进行修改呢？

具体代码如何编写呢？

If (Not Rst.EOF) Then
Rst.MoveNext
If (Not Rst.EOF) Then
Rst.MovePrevious
Text1.Text = Rst.Fields("姓名").Value
...
...
...
Text17.Text = Rst.AbsolutePosition
Rst.Update

MsgBox "修改成功！"
Text16.Text = Rst.RecordCount

这样执行后，没有任何变化！

我改编写的代码如下:

Private Sub Command4_Click()

If MsgBox("要修改吗?", vbExclamation + vbYesNo) = vbYes Then
Rst.Delete
MsgBox "修改成功！"
Rst.AddNew
Else
End If

Text16.Text = Rst.RecordCount
CmdAdd.Visible = True
Command2.Visible = False
Command4.Visible = False
Command3.Visible = True
Command3.Enabled = True
CmdDelete.Enabled = True
CmdPrevious.Enabled = True
CmdNext.Enabled = True
CmdFirst.Enabled = True
CmdLast.Enabled = True
End Sub

执行后,出现提示:

无法插入空行,行不许至少有个列集!

把简单的问题复杂化了