Pasar el valor de un campo de un Datagrid a un campo en el formulario

Private Sub Command2_Click()
      'Unload Me
      Me.Text1 = GRILLAPRODUCTO.Columns(1).Text
End Sub