Private Sub bouton_main_supprimer_rendezvous_Click()
    Dim strLadate As String
    Dim strLheure As String
    Dim strLedelais As String
    Dim strLafrequence As String
    Dim strLecontact As String
    strLadate = tableau_main_rendezvous.Text
    tableau_main_rendezvous.Col = 1
    strLheure = tableau_main_rendezvous.Text
    tableau_main_rendezvous.Col = 2
    strLedelais = tableau_main_rendezvous.Text
    tableau_main_rendezvous.Col = 3
    strLafrequence = tableau_main_rendezvous.Text
    tableau_main_rendezvous.Col = 4
    strLecontact = tableau_main_rendezvous.Text
    ado_main_rendezvous.RecordSource = "SELECT * FROM RendezVous Where Date='" & strLadate & "' AND Heure='" & strLheure & "' AND Délais='" & strLedelais & "' AND Fréquence='" & strLafrequence & "' AND Contact='" & strLecontact & "'"
    ado_main_rendezvous.Refresh
    ado_main_rendezvous.Recordset.Delete
    ado_main_rendezvous.Refresh
    ado_main_rendezvous.RecordSource = "SELECT * FROM RendezVous ORDER BY Date"
    ado_main_rendezvous.Refresh
End Sub

'How can i get the value of the selected row column 1, 2 and 3 without change the column focus