ผมมี Code ดังนี้ครับ

Private Sub cmdGiveEdit_Click()
If Not rs1.BOF Then
rs1.Move lstGiveform.Value - 1
rs1!IDCode = txtGiveIDCode.Value
Select Case fraGive.Value
Case 1
rs1!Status = True
Case 2
rs1!Status = False
End Select
If txtGiveDateStart.Value <> "" Then
rs1!DateStart = txtGiveDateStart.Value
End If
If txtGiveDateStart1.Value <> "" Then
rs1!DateStart1 = txtGiveDateStart1.Value
End If
If txtGiveDateEnd <> "" Then
rs1!DateEnd = txtGiveDateEnd.Value
End If
rs1!Name = txtGiveName.Value
rs1!Name1 = txtGiveName1.Value
rs1.Update
End If
lstGiveform.SetFocus
lstGiveform.Requery
txtGiveDateStart.SetFocus
rs1.MoveFirst
End Sub
-------------------------------------------------------
Private Sub lstGiveform_GotFocus()
lstGiveform.Requery
End Sub

จาก Code ดังกล่าวผมต้องการให้เมื่อ Save ข้อมูลแล้ว Listbox ทำการ reQurey ใหม่เพื่อแสดงค่าเป็นปัจจุบันครับ แต่ปัญหาคือ เวลา Run Step Into (F8) โปรแกรมทำงานได้ตามปกติ แต่ Run F5 ปกตินั้น ข้อมูลไม่แสดงเป็นปัจจุบันครับ ไม่ทราบว่าผมต้องทำอย่างไรครับ