Hi,
ich habe eine Liste, die mit Werten aus einer Tabelle gefüllt wird. Unter der Liste habe ich eine KomboBox womit ich die Einträge der Liste sortieren möchte. Also wenn ich zb. in der KomboBox "ID" anklicke, dann soll die Liste nach ID´s sortiert werden. Dazu habe ich bisher folgenden Code verfasst.
[Code]
Dim S As String
Dim rs As ADODB.Recordset
If KomboBox3 = "ID" Then
S = "SELECT * FROM Tabelle1 ORDER BY ID"
ElseIf KomboBox3 = "Name" Then
S = "SELECT * FROM Tabelle1 ORDER BY Name"
End If
Set rs = CurrentProject.Connection.Execute(S)
Do Until rs.EOF
Debug.Print rs!ID & " | " & rs!Name
rs.MoveNextLoop
[/Code]
Ich bekomme ja die Werte ausgegeben (im Direktfenster), aber wie bekomme ich die jetzt so sortiert in meine Liste?
Gruß C. M. |