Public Sub gridsportangebote(frm As Form)
Dim objgrid As sevGrid, strsql As String, rst As New ADODB.Recordset
With frm
    Set objgrid = .Controls.Add("sevdatagrid2.sevgrid", "gridsportangebote")
    Set objgrid.Container = .sevFrame1
    objgrid.Top = .sevFrame1.Top + 100
    objgrid.Left = .sevFrame1.Left + 100
    objgrid.Width = 7815
    objgrid.Height = 6975
    objgrid.Visible = True
    strsql = "select v_sportart_id, vereins_id," & _
      "tbf_vereine_sportarten.sportart_id, tbf_sportarten.sportart," & _
      "stadtteil_id, " & _
    "tbf_stadtteile.stadtteil, tbf_sportartengruppen.sportartgruppe," & _
    "jugendliche from tbf_stadtteile " & _
    "inner join (tbf_vereine_sportarten inner join (tbf_sportarten inner join" & _
    "tbf_sportartengruppen on " & _
    "tbf_sportarten.sportartgruppe=tbf_sportartengruppen.sportartgruppeID) on" & _
    "tbf_vereine_sportarten.sportart_id=" & _
    "tbf_sportarten.sportart_id) on" & _
    "tbf_stadtteile.stadtteil_id=tbf_vereine_sportarten.stadtteil " & _
    "where vereins_id=" & lngvereinsid & " order by sportart"
    rst.Open strsql, objcon, adOpenStatic, adLockOptimistic
    With objgrid
        .LockUpdate True
        .Clear True
        .DataMode = Mode_List
        .FilterVisible = True
        .AllowEdit = True
        .ColumnAdd "v_sportart_id", "v_sportart_id", , , False
        .ColumnAdd "vereins_id", "vereins_id", , , False
        .ColumnAdd "sportart_id", "sportart_id", , , False
        .ColumnAdd "Sportart", "Sportart", 3000, , , TYPE_COMBOBOX, _
          ALIGNMENT_LEFT
        .ColumnAdd "stadtteil_id", "stadtteil_id", , , False
        .ColumnAdd "Stadtteil", "Stadtteil", 2000, , , TYPE_COMBOBOX
        .ColumnAdd "Sportartgruppe", "Sportartgruppe", 2000
        .ColumnAdd "Jugendliche", "Jugendliche", , , , TYPE_CHECKBOX, _
          ALIGNMENT_CENTER
        .CheckBoxStyle = CHECKBOX_XP
        .CaptionVisible = True
        .Caption = "Sportangebote " & strvereinsname
        .CaptionBackColorFrom = &HFFC0C0
        .CaptionBackColorTo = &HFF8080
        .CaptionFont.Bold = True
        .FontName = "Tahoma"
        .FontSize = 8
        .AutoSort = True
        Do Until rst.EOF
            .AddItem rst!v_sportart_id & vbTab & rst!Vereins_ID & vbTab & _
            rst!sportart_id & vbTab & rst!sportart & vbTab & rst!stadtteil_id & _
            vbTab & rst!stadtteil & vbTab & rst!sportartgruppe & vbTab & _
            rst!jugendliche
            rst.MoveNext
        Loop
        .LockUpdate False
        .Refresh
        .Columns(8).AdjustWidthToGridSize
    End With
    rst.Close
    Set rst = Nothing
End With
set objgrid=nothing
End Sub