Autosize de column headers in datagridview

[Schipperjte]

Hoi,

Via een access bestand zet ik wat gegevens in een datagridview.
Maar sommige teksten in de column headers zijn te lang.
Hoe laat ik de column headers automatisch aanpassen aan de tekst ?

Bij bound weet ik het wel , dan maak ik ze handmatig breder.
Maar via code is helemaal nieuw voor mij.

Dit gebruik ik om een datagridview te vullen.

    Private Sub databaseopenen(ByVal tabelnaam As String)
        Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\som\Week.mdb;"
        Dim sql As String = "SELECT * FROM " & tabelnaam
        Dim connection As New OleDbConnection(connectionString)
        Dim dataadapter As New OleDbDataAdapter(sql, connection)
        Dim ds As New DataSet()
        connection.Open()
        dataadapter.Fill(ds, tabelnaam)
        connection.Close()
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = tabelnaam
    End Sub
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        databaseopenen("week1")

    End Sub

 

[old Hippy]

Zo doe je het in een datagrid

 

[Schipperjte]

Is opgelost.

Bij eigenschappen datagridview dit veranderd.

AutoSizeColumnsMode-AllCells
AutoSizeRowsMode-AllHeaders

edit:
zie net je antwoord , old Hippy

Bedankt voor het meedenken