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 sSQL As String
  Dim x As Long
   i = 0
With DB
    .CursorLocation = adUseClient
End With
 
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_Vorname '" & txtSuchkriterium(1).Text & "'"
End If
If Len(txtSuchkriterium(2).Text) > 0 Then
    Kriterium = Kriterium & " And KD_Ort Like '" & txtSuchkriterium(2).Text & _
      "'"
End If
 
'einlesen
Set oRecordset = New ADODB.Recordset
sSQL = "Select * From " & dbTable & Kriterium & " Order By KD_KName, KD_Vorname"
oRecordset.ActiveConnection = DB
oRecordset.Open sSQL