sadece xLst fonksiyonu ekledim
kriterler için oluşturduğunuz change/değiştirdiğinde olaylarını silip bu fonksiyonu tanımladım
Private Function xLst()
xDgis = """ & Forms!REPETE_LISTESI!" & ActiveControl.Name & " & """
TmpLstSql = Replace(xLstSql, xDgis, ActiveControl.Text)
Me.Liste.RowSource = TmpLstSql
End Function