Foros del web, para los que viven de bits

        cn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & nombrebase & ";Persist Security Info=False")  ' note 5323 is the name of dbase 
        rs2.Open(tablanombre, cn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
        ds.Tables.Add(tablanombre)
        ol.Fill(ds.Tables(tablanombre), rs2)
        ds.DataSetName = cn.ConnectionString
        Me.MSGrid.DataSource = ds.Tables(tablanombre)
        MSGrid.CaptionText = nombrebase
        ''MsgBox(MSGrid.DataSource.columns.count)
        ''MsgBox(MSGrid.DataSource.columns.item(1).columnname())
        ''MsgBox(MSGrid.TableStyles(1).ToString)
        Call AutoSizeDataGridColumns(MSGrid, tablanombre, 1)
        cn.Close()

    Private Sub WriteMappingNames()
        Dim dgt As DataGridTableStyle
        For Each dgt In MSGrid.TableStyles
            Console.WriteLine(dgt.MappingName)
            Dim dgc As DataGridTextBoxColumn
            For Each dgc In dgt.GridColumnStyles
                ''    MsgBox(dgc.MappingName)
                dgc.NullText = "[Vacío]"
                If dgc.MappingName = mfecha Then
                    ''  dgc.HeaderText = "dsfg"
                    dgc.Format = "dd MM yyyy hh:mm:ss"
                    dgc.NullText = Date.Now
                    Exit Sub
                End If
                ''                dgc.DataGridTableSty()
            Next dgc
        Next dgt
    End Sub