Bem, acredito que seja isso que vc quer;
bdgrid = DAO então: joga um dbgrid com data e um label no form e bota o seguinte código:
Dim Linha As Integer
Dim Coluna As Integer
Private Sub DBGrid1_Click()
If Coluna > -1 And Linha > -1 Then
Label1.Caption = DBGrid1.Columns(Coluna).CellValue(DBGrid1.RowBookmark(Linha))
End If
End Sub
Private Sub DBGrid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Linha = DBGrid1.RowContaining(Y)
Coluna = DBGrid1.ColContaining(X)
End Sub
