Private Sub DataGrid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
'Muestra el contenido de la cabecera de la columna
Text1.Text = Adodc1.Recordset.Fields(DataGrid1.ColContaining(X)).Name
'Establece la celda activa del grid
DataGrid1.Col = DataGrid1.ColContaining(X)
DataGrid1.Row = DataGrid1.RowContaining(Y)
'Muestra el contenido de la celda activa
Text2.Text = DataGrid1.Text
End Sub