VB Code:
Private Sub DataGrid1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error GoTo ErrHand
DataGrid1.Row = DataGrid1.RowContaining(Y)
'Personally, If working in the same form I wouldn´t use Me.????? (but that´s me :))
Me.TextBox1.Text = DataGrid1.Columns(0).Text
Me.TextBox2.Text = DataGrid1.Columns(1).Text
Me.TextBox3.Text = DataGrid1.Columns(2).Text
Me.TextBox4.Text = DataGrid1.Columns(3).Text
Me.TextBox5.Text = DataGrid1.Columns(4).Text
Exit Sub
ErrHand:
Select Case Err.Number
Case Is = -2147467259
MsgBox "Database Error", vbInformation + vbOKOnly, "Warning"
End Select
End Sub