Private strDbCon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=abc.mdb"
Private cnDB As New OleDbConnection(strDbCon) ' connection to database
Private daDB As OleDbDataAdapter
Private dsDB As New DataSet
Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cnDB.Open()
daDB = New OleDbDataAdapter("select * from Data", cnDB)
daDB.Fill(dsDB)
dgHis.DataSource = dsDB.Tables(0)
Dim grid As New DataGrid
'-------------the following code i copy from [URL="http://www.vbdotnetheaven.com/UploadFile/prvn_131971/HideDataGridcolumnInVB11172005020153AM/HideDataGridcolumnInVB.aspx?ArticleID=daa8d4d5-7b0d-4265-9f8e-ed62aaabb58e"]http://www.vbdotnetheaven.com/UploadFile/prvn_131971/HideDataGridcolumnInVB11172005020153AM/HideDataGridcolumnInVB.aspx?ArticleID=daa8d4d5-7b0d-4265-9f8e-ed62aaabb58e[/URL]
'----------------
For Each dgt As DataGridTableStyle In dgHis.TableStyles
MsgBox(dgt.MappingName)
For Each dgc As DataGridColumnStyle In dgt.GridColumnStyles
dgc.Width = 0
Next dgc
Next dgt
End Sub