Public Sub GetOverview(lstView As ListView)
Dim i As Integer
Dim lvwItem As ListItem
 
conString = "DSN=pfpro_db"
 
Set ADO = New ADODB.Connection
Set rsADO = New ADODB.Recordset
 
lstView.ListItems.Clear
 
ADO.Open conString
 
rsADO.ActiveConnection = conString
rsADO.Source = "SELECT Thread_ID,Thread_Typ FROM PF_DATA WHERE Thread_Typ='" & _
  parThread_Typ & "'"
 
    rsADO.Open rsADO.Source, conString
 
  While Not rsADO.EOF
   Set lvwItem = lstView.ListItems.Add(, , CStr(rsADO!Thread_ID), 1, 1)
        lvwItem.SubItems(1) = Format$(rsADO!Thread_Typ)
    rsADO.MoveNext
 Wend
 ADO.Close
 
End Sub

---------------------------------------------------------------
Mal verliert man, mal gewinnen die anderen