Private Sub artikel_sort()
Dim rs As New ADODB.Recordset
 
    With cmbArtikel
 
        .Clear
        If artikelsort Then
            sqlsuche = suchen("SELECT Artikelnummer, Artikel, Garantie FROM" & _
              "Artikel " _
                & "ORDER BY Artikelnummer", rs)
            Set .Recordset = rs
            .Columns(1).Width = 2000
            .Columns(2).Width = 4300
            .Columns(3).Width = 700
            .BoundColumn = 2
        Else
            sqlsuche = suchen("SELECT Artikel, Artikelnummer, Garantie FROM" & _
              "Artikel " _
                & "ORDER BY Artikel", rs)
            Set .Recordset = rs
            .Columns(1).Width = 4300
            .Columns(2).Width = 2000
            .Columns(3).Width = 700
            .BoundColumn = 1
        End If
        artikelsort = Not artikelsort
    End With
End Sub