Люди добрые, помогите с проблемой, целый день мучаюсь!
У меня Listvew заполняется данными из БД (4 записи) , по нажатии на LV у меня появляется диалоговое окно с корректировкой записи той, на которую я нажал, я делаю ее корректировку, нажимаю ОК и !!!эта запись появляется не понятно где , то в начале списка, то в конце, а мне надо что бы где она была там и осталась (например я нажимаю на третью запись и там она должна остаться); вот код(я делаю с помощью Edit):

Private Sub OKButton_Click()
Dim r As dao.Recordset
Dim D As dao.Database
Dim maxno As Long
Dim index As Integer
Set D = OpenDatabase(App.Path & "\Клиентская база.mdb")
Set r = D.OpenRecordset("select max ([Id]) as M from [Договора]")
If Not r.EOF Then
maxno = r.Fields("M")
Else
maxno = 0
End If
Set r = D.OpenRecordset("select * from [Договора]")
' Main.D.Execute ("insert into [Клиенты](Id,ФАМИЛИЯ) values '" & maxno + 1 _
' & "','" & Text1.Text & "' ;")
index = 2
Select Case Main.dialogtype
Case 1
r.AddNew
r.Fields("Id") = maxno + 1
r.Fields("Клиент Id") = Text1
r.Fields("Тур Id") = Text2
r.Update
Case 2
r.Edit
r.Fields("Клиент Id") = Text1
r.Fields("Тур Id") = Text2
r.Update
End Select
Unload Me
End Sub