getting value of selected items in listview

PatOls,

Try changing your For...Next loop as follows:

Dim strSource, strCaption, strText As String 
Dim strFooker As String 
Dim strDBName As String 
Dim strPepp0, strPepp2, strPepp3 

strFooker=""
For i = 1 To ListView1.ListItems.Count 
  If ListView1.ListItems(i).Selected = True Then 
    If Len(strFooker)<>0 Then
      strFooker = strFooker & " OR "
    End If
    strFooker = strFooker & "LIKE '" & ListView1.ListItems(i).SubItems(1)
  End If
Next i
strDBName = DBPath() 
strSource = "SELECT * FROM Class4 WHERE Detalj " & strFooker

Also, it's never a good idea for put Dim statements
anywhere other than at the beginning of a Sub or Function
unless you have a very good reason for doing so (as far
as I can tell, there will only be a good reason for doing
so when VB.Net ships because VB.Net will support Block
scope for variables defined within a Do, For, or such like).