عايز كود يطلعلى الاسم ال انا دخلتوا موجود كام مرة في الdata

اذا كنت من محبى الاده DATACONTROL فاليك الكود طبعا هذا الكود بعد الاستعلام عن اسم معين او رقم معين اما غير كده سياتى بأجمالى البيانات التى تكون فى الجدول

Dim A As String
A = InputBox("ادخل اسم ", "ادخل اسم الاستعلام ")
  Data1.RecordSource = "SELECT * FROM MOVE WHERE الاسم like'" + A + "*'"
 Data1.Refresh
MsgBox Data1.Recordset.RecordCount