Option Explicit
Private Declare Function SafeArrayGetDim Lib "oleaut32.dll" ( _
ByRef pArray() As Any) As Long
Public Sub Suche()
OrgaRead cb_searchobject.Column(1), "subtree", cb_searchobject.Column(0), cb_searchobject.Column(2), True
If CBool(SafeArrayGetDim(Database)) Then
lbl_search.Caption = UBound(Database, 2) + 1 & " Ergebniss/e"
For I = 0 To UBound(Database, 2)
If IsNull(Database(2, I)) Then Database(2, I) = ""
lb_search.AddItem
lb_search.Column(0, I) = Database(0, I)
lb_search.Column(1, I) = Database(1, I)
lb_search.Column(2, I) = Database(2, I)
Next
End If
End Sub