la solucion es:
'Cambiamos el estado del cursor poniendo un reloj de arena
Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
'Declaramos una variable de DataColumn y creamos la columna
Dim MiColum As DataColumn = New DataColumn
MiColum.DataType = System.Type.GetType("System.Int32")
MiColum.AllowDBNull = False
MiColum.DefaultValue = 0
MiColum.Caption = "Cantidad"
MiColum.ColumnName = "Cantidad"
'Agregamos la columna a la colección de columnas del DataSet1
ds.Tables(0).Columns.Add(MiColum)
'Regresamos el estado del cursor a normal
Me.Cursor = System.Windows.Forms.Cursors.Default
Dim TextCol3 As New DataGridTextBoxColumn
TextCol3.MappingName = "Cantidad"
TextCol3.HeaderText = "A pagar"
TextCol3.Width = 80
TableStyle1.GridColumnStyles.Add(TextCol3)
Fuente:
http://www.elguille.info/colabora/pu...l_datagrid.htm