yanılmıyorsam bu sorunuz için aşağıdaki koda benzer bir çözüm önermiştim, o yöntemi denediniz mi?

Private Function xLst()

xDgis = """ & Forms!REPETE_LISTESI!" & ActiveControl.Name & " & """

    TmpLstSql = Replace(xLstSql, xDgis, ActiveControl.Text)

    Me.Liste.RowSource = TmpLstSql

End Function