Public Sub Listview(ByVal dbTable As String)
  Dim oRecordset As ADODB.Recordset
  Dim oField As ADODB.Field
  Dim oItem As ListItem
  Dim Kriterium As String
  'Dim i As Integer
   i = 0
With DB
    .CursorLocation = adUseClient
End With
 
'Abfrage des Suchkriteriums
If Len(txtSuchkriterium(0).Text) > 0 Then
    Kriterium = " And KD_KName Like '" & txtSuchkriterium(0).Text
End If
If Len(txtSuchkriterium(1).Text) > 0 Then
    Kriterium = Kriterium & " And KD_KVorname Like '" & txtSuchkriterium(1).Text
End If
If Len(txtSuchkriterium(2).Text) > 0 Then
    Kriterium = Kriterium & " And KD_Ort Like '" & txtSuchkriterium(2).Text
End If
 
If Len(Kriterium) > 0 Then
    'Bedingung mit Where versehen
    Kriterium = Replace(Kriterium, "And", "Where", 1, 1, vbTextCompare)
End If
 
' Set oRecordset = New ADODB.Recordset
oRecordset.Open "SELECT * FROM & " & dbTable & Kriterium & " Order By" & _
  "KD_KDName, KD_Vorname", DB
.
.
.
End sub