Private Sub dt_ColumnChanging(sender As Object, _
            e As System.Data.DataColumnChangeEventArgs) Handles _
            dt.ColumnChanging
 
     If e.Column.Ordinal = 0 Then
        e.ProposedValue = CType(e.ProposedValue, String).ToUpper
     End If
End Sub