Private Sub Komut24_Click()
Const SQLa As String = "SELECT mkys.Kimlik AS mkys_Kimlik, mkys.mkysTkl, mkys.mkysMadi, mkys.mkysDepo, nucleus.Kimlik AS nucleus_Kimlik, nucleus.nucleusMkodu, nucleus.nucleusMadi, nucleus.nucleusTklHesapKodu " & _
"FROM nucleus INNER JOIN mkys ON nucleus.nucleusTklHesapKodu = mkys.mkysTkl "
    Dim tut, Bak As String
    Dim bb As Variant
 bb = Me.nucleusMadi.Value
 bb = Split(bb)
 For i = LBound(bb) To UBound(bb)
 tut = tut & " OR ((nucleusMadi) Like '*" & bb(i) & "*')"
 Bak = Bak & ", " & bb(i)
Next
Me.araMetinKutusu = Mid(Bak, 2)
 Me.listbox1.RowSource = SQLa & "WHERE (" & Mid(tut, 4) & ")"
End Sub