aramalar arasına 1 boşluk bırakmalısınız buton kodu

Dim AraStr() As String

Dim SqlStr As String

Dim xBit, xBas As Integer



Me.Metin5.Value = Trim(Me.Metin5.Value)

If Len(Me.Metin5 & "") = 0 Then Exit Sub



AraStr = Split(Me.Metin5, " ") 

xBit = UBound(AraStr)

xBas = LBound(AraStr)

LstSql = "SELECT kron.kronik FROM kron GROUP BY kron.kronik, kron.[kronik] having  "

For x = xBas To xBit

    SqlStr = SqlStr & " and [kronik] like '*" & AraStr(x) & "*'"

Next x

   LstSql = LstSql & Mid(SqlStr, 5)

   Me.Liste1.RowSource = LstSql 

mesela alerji ve depresyon için
yazmanız yeterli