[programmer-vb] Find record datagrid vb6

[rickyharx]

Sekedar gambaran coding saya di untuk view & refresh di datagrid
Private Sub Form_Load()
    ssql = "select * from TES where 1 = 2"
    With DtDIR.rsTES
        If .State = adStateOpen Then
            .Close
          .Open ssql
        Else
            .Open ssql
        End If
    End With
    DataRefresh
        If rstHelpdlg.State = adStateOpen Then rstHelpdlg.Close
        sSqlrst = "SELECT * FROM TES"
        rstHelpdlg.Open sSqlrst, DtDIR.ConDIR
        Set DataGrid1.DataSource = rstHelpdlg
        DataGrid1.Refresh
End Sub

Yang Ingin saya tanyakan Bagaimana coding apabila kita Klik satu Record di 
table datagrid vb6 pada field tertentu (contoh KD_KAR) maka kita dapat KD_Kar 
tsb?  Terima Kasih.