seruz kardeşime bizi or deyimi gibi eziyetli bir uygulamadan kurtardığı için teşekkürlerimi bir borç bilerek neden daha önce ben düşünemedim diye kendime kızıyorum size gelince arkadaşım formdaki kodu aşağıdaki ile değiştirin istediğiniz olur

Private Sub Liste0_AfterUpdate()
Dim v, Id, Kriter

'EĞER LİSTE BOŞSA
If Me.Liste0.ItemsSelected.Count = 0 Then
Liste2.RowSource = ""
MsgBox "LÜTFEN LİSTEDEN SEÇİM YAPIN", vbExclamation, "DİKKAT"
Exit Sub
End If

'LİSTE KUTUSUNDAN KRİTER EKLEME
Kriter = ""
For Each v In Liste0.ItemsSelected
Id = Liste0.Column(0, v)
If Kriter = "" Then Kriter = Kriter & "(" Else Kriter = Kriter & ","
Kriter = Kriter & Id
Next v
Kriter = Kriter & ")"
If Kriter = "(*)" Then
Liste2.RowSource = "SELECT tedavikod, hastakod, tedavi FROM tedavi;"
Else
Liste2.RowSource = "SELECT tedavikod, hastakod, tedavi FROM tedavi WHERE hastakod in " & Kriter & ";"
'Liste2.RowSource = "SELECT tedavikod, hastakod, tedavi FROM tedavi HAVING (tedavi.hastakod) Like kriter & " * " ; "
End If

Liste2.Requery

'HAVING (((toplam.adı) Like [metin2] & "*") AND
'HAVING (toplam.adı) Like [metin2] & "*"
End Sub