[اسلام الكبابى]

لدى كود يحل تلك المشكلة ولكنه كود معقد متعب للكمبيوتر عند عمل أى ترتيب للسجلات

   Adodc1.Recordset.MoveFirst

For I = 0 To Adodc1.Recordset.RecordCount - 1

     NAMME = Adodc1.Recordset.Fields(1)

  NAMME = Replace(NAMME, "أ", "ا", 1, -1)

  NAMME = Replace(NAMME, "إ", "ا", 1, -1)

  NAMME = Replace(NAMME, "آ", "ا", 1, -1)

   Adodc1.Recordset.Fields(1) = NAMME

Adodc1.Recordset.MoveNext

Next I

Adodc1.Refresh

     Adodc1.RecordSource = "select * from TABLE1 ORDER BY TABLE1.NAME"

لذلك أبحث عن دالة أو جمل بسيطة تجعل الكمبيوتر يقوم بذلك بسهولة
ولكم ألف شكر