Datagridview1.CurrentCell = Datagridview1('Your column index', Datagridview1.NewRowIndex) Datagridview1.BeginEdit(True)

//This will written in the EditingControlShowing event of datagridview If TypeOf e.Control Is TextBox Then DirectCast(e.Control, TextBox).CharacterCasing = CharacterCasing.Upper End If

Dim rpt As cry1 rpt = New cry1() Dim RptForm As CrystalDecisions.CrystalReports.Engine.ReportDocument Dim T As CrystalDecisions.CrystalReports.Engine.TextObject RptForm = rpt 'rpt is your report object T = RptForm.ReportDefinition.Sections(1).ReportObjects(0) T.Text = Date.Today rpt.SetDataSource(d) CrystalReportViewer1.ReportSource = rpt CrystalReportViewer1.DisplayGroupTree = False CrystalReportViewer1.Show()