[VB6] Dettaglio Record, non sempre ID giusto

[StegcO]

Allora, mi connetto alla mia tabella di Access grazie a questo codice:

Public ID_Agenda as String

SQL = "SELECT Cognome,Societa,Telefono_1 FROM Agenda ORDER BY ID"
    
With Rs
    .ActiveConnection = Conn
    .CursorLocation = adUseServer
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Properties("IRowsetIdentity") = True
    .Open SQL, , , , adCmdText
End With

Set dgr_agenda.DataSource = Rs

Private Sub dgr_agenda_Click()

ID_Agenda = Rs.Fields("ID").Value
frm_agenda_dettaglio.Show

End Sub

Nella frm_agenda_dettaglio

Private Sub Form_Load()

lbl_id.Caption = ID_Agenda

End Sub

Private Sub Form_Unload(Cancel As Integer)

ID_Agenda = ""

End Sub

L'oggetto si chiama dgr_agenda.

Sono risuci a fare l'evento click, ma come mai se clicco sulla freccia a sinistra del record prende l'ID giusto e se clicco in mezzo al record prende l'ID sbagliato???