Hvordan bruger man Tablestyler på en Join selection

Public Sub Fylddatagrid(ByVal ID As Integer)
        Me.OleDbSelectCommand2.CommandText = "SELECT LeverandoerVare.LeverandoerVareId, LeverandoerVare.LeverandoerId, Leverand" & _
        "oerVare.VareId, Varer.VareId AS Expr1, Varer.EANnummer, Varer.VareNavn, Varer.Va" & _
        "reGruppeId, Varer.AntalLager, Varer.MinimumLager, Varegruppe.VareGruppeId AS Exp" & _
        "r2, Varegruppe.VaregruppeNavn FROM ((Varegruppe INNER JOIN Varer ON Varegruppe.V" & _
        "areGruppeId = Varer.VareGruppeId) INNER JOIN LeverandoerVare ON Varer.VareId = L" & _
        "everandoerVare.VareId) WHERE LeverandoerVare.LeverandoerId = " & ID
        Me.OleDbSelectCommand2.Connection = Me.OleDbConnection1
        DataSet81.Clear()
        OleDbDataAdapter2.Fill(DataSet81)

Public Sub Tablestyler()
        Dim tableStyle As New DataGridTableStyle
        tableStyle.MappingName = "Varegruppe"

        'VareId
        Dim column As New DataGridTextBoxColumn
        column.MappingName = "LeverandoerVareId"
        column.HeaderText = "Id"
        column.Width = 40
        tableStyle.GridColumnStyles.Add(column)

Me.DataGrid1.DataMember = ""
        Me.DataGrid1.DataSource = Me.DataSet81.Varegruppe
        Me.DataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.DataGrid1.Location = New System.Drawing.Point(16, 240)
        Me.DataGrid1.Name = "DataGrid1"
        Me.DataGrid1.Size = New System.Drawing.Size(760, 248)
        Me.DataGrid1.TabIndex = 26

Ingen bud - synes det er meget mærkligt det ikke virker!?!

PIS, manglede denne:
Me.DataGrid1.TableStyles.Add(tableStyle)

Øv at bruge så lang tid på én sætning :-(

:) DataSet 81... der er en del der skal holdes styr på ;)

Nej det er nu kun en prøve dataset jeg har oprettet, da jeg ikke kunne få det til at virke. Så skulle den ikke så gerne mindre om de allerede eksisterende datasets...