Sub iniciar_datagrid()
Dim dc As DataColumn
acprt = New DataSet
dc = New DataColumn("codigo", System.Type.GetType("System.Int32"))
dt.Columns.Add(dc)
dc = New DataColumn("nombre", System.Type.GetType("System.String"))
dc.ReadOnly = True
dt.Columns.Add(dc)
dc = New DataColumn("sem", System.Type.GetType("System.String"))
dt.Columns.Add(dc)
dc = New DataColumn("anio", System.Type.GetType("System.Int32"))
dt.Columns.Add(dc)
dt.Columns("nombre").ReadOnly = True
acprt.Tables.Add(dt)
dgac352.DataSource = acprt.Tables("tabla1")