[amer2000]

اولا الترقيم يا البسكري

اللغة المكتوبة بين القوسين هي الرقم
rs.Open "USERS order by [ÇáÑÞã]", MyDb, adOpenStatic, adLockPessimistic

والشباب الباقي مايقصرو
 تقريبا جرب
Set DB = OpenDatabase(App.Path & "\DOUSSA.mdb", 2)
If rs.State = 1 Then rs.Close
'البحث بحقل اللقب
'Set RS = DB.OpenRecordset("select * from Table1 where [Nom] Like'" & Text1.Text & "*'")
'البحث بحقلي الاسم و اللقب
Set rs = DB.OpenRecordset("Select * From USERS Where الاسم=%'" & Val(Trim$(Text6.Text)) & " Or اللقب Like '" & Trim$(Text6.Text) & "*'")