[Ahmed_Mansoor]

أهلا أخي الكريم , أرجو المعذرة  لم تذكر عدد التكرار في نص المشاركة , على العموم هذا التعديل الجديد :

PHP كود :

Data1.RecordSource = "Select  (Select Count(type) From Table1 Where type LIKE '%" & lcd & "%') As zTotal  From Table1"
Data1.Refresh
If Data1.Recordset.RecordCount > 0 Then
    Label1.Caption = Data1.Recordset.Fields("zTotal").Value 
Else
    Label1.Caption = "0"
End IF