Mehrspaltige Listbox füllen

Philip;-)

Stand der Macro:

Private Sub TEST()
Dim DB As Database
Dim Rs As Recordset
Dim SQL As String
Dim V As String
Dim Anz As Variant
Set DB = DBEngine.OpenDatabase("C:\DATEN\DB.MDB")
Let V = TextBoxFAZID.Text
If V = "" Then GoTo Err
SQL = "SELECT * From OBJEKT where FAZ_ID = " & V
Set Rs = DB.OpenRecordset(SQL)
If Rs.EOF Then GoTo Err 'kein DS gefunden
With Rs
.MoveLast
Anz = .RecordCount
.MoveFirst
End With

For i = 1 To Anz
ListBoxOBJLISTE.AddItem ("???") 'PROBLEM
Next i

Rs.Close
DB.Close
Exit Sub
Err:

End Sub