Dar Formato A Un Datagrid Mediante Codigo

[jeka]

Hola a todos:
Tengo la siguiente dificultad, agradeceria si alguien me ayuda:
Tengo un formulario, en el cual hay un datagrid, y en el evento frm_load le doy el formato al datagrid; algo como esto:


Dim cCodigo As New DataColumn("cod", GetType(Integer))

Dim cDetalle As New DataColumn("det", GetType(String))



dt1.Columns.Add(cCodigo)

dt1.Columns.Add(cDetalle)

dg.DataSource = dt1

Dim ts As New DataGridTableStyle

Dim dgtCodigo As New DataGridTextBoxColumn

Dim dgtProducto As New DataGridTextBoxColumn



ts.MappingName = "Detalle_Pedido"



dgtCodigo.MappingName = "cod"

dgtCodigo.HeaderText = "Codigo del Articulo"

dgtCodigo.ReadOnly = True

ts.GridColumnStyles.Add(dgtCodigo)

'

dgtProducto.MappingName = "det"

dgtProducto.HeaderText = "Descripcion del Articulo"

dgtProducto.ReadOnly = True

ts.GridColumnStyles.Add(dgtProducto)

por mencionar algunas columnas, bueno, la cosa es que este datagrid va a cargar el detalle de una factura, cuando le den clik al control Abrir, y elijan un registro de un combobox:

Private Sub btnAbrir_Click

Dim datos As DataSet = oConexion.cargar_detalle_cuenta(registro)

dt1 = datos.Tables(0).Copy

dt1.AcceptChanges()

'Si no coloco la siguiente linea, el datagrid esta vacio, en cambio si agrego la siguiente linea, el datagrid se llena de datos, pero no con el formato definido anteriormente, por ejemplo, no sale el titulo que le puse a la columna, sino sale el nombre del campo

Me.dtgPedido.DataSource = dt1

End Sub

__________________________________________________ ____

Tambien queria consultarles como hacer para que en una columna del datadrid, que va tener datos del tipo money, ponerles un formato, yo estaba poniendo asi:

dgtImporte.MappingName = "imp"

dgtImporte.Alignment = HorizontalAlignment.Center

dgtImporte.HeaderText = "Importe"

dgtImporte.ReadOnly = True

ts.GridColumnStyles.Add(dgtImporte).ToString("$#,# #0.00;($#,##0.00)")

pero no sale, con este formato, sino como esta en la base de datos

______________________________

BUENO, ESPERO ME PUEDAN AYUDAR, PORQUE HE PROBADO UN MONTON DE COSAS Y CAMBIADO EL CODIGO PERO NADA, PORFAVOR AYUDEMME

GRACIAS Y SALUDOS...................