如何尋找資料?(編號：2485)

如何在DBGrid中的一行中dbclick後，找出對應那一列的資料(在同一個form裡)?
Private Sub DBGrid1_DblClick()
Data1.Refresh
　Dim rs As Recordset
　Set rs = Data1.Recordset

rs.Index = "日期"
　rs.Seek "=", Format(DBGrid1.???)

End Sub