how to display datagrid date display at dtpicker?
example:when i click at the datagrid row data will display at textbox and dtpicker.

Private Sub DataGrid1_Click()
DataGrid1.SetFocus
DataGrid1.MarqueeStyle = dbgHighlightRow

'DTPpurchase = DataGrid1.Columns(2)
Txtidnumber.Text = DataGrid1.Columns(4)
Txtprice.Text = DataGrid1.Columns(5)
Txtstatus.Text = DataGrid1.Columns(6)
DataGrid1.Refresh
End Sub