[sendbad100]

الحمد لله من قبل ومن بعد 

وجدت طريقة 

تفضل 

غير الكود في Command2_Click  بالتالي   والله الموفق

PHP كود :

Private Sub Command2_Click()

If List1.ListCount < 1 Then Exit Sub
Dim x As String

For i = 0 To List1.ListCount - 1
 
 
List1.ListIndex = i
 If t = "" Then
t = "'*" & Trim(List1.Text) & "*'"

Else

t = t & " or [CARTE] LIKE '*" & Trim(List1.Text) & "*'"
End If
 Next
  
 Dim AR As New ActiveReport1
 

AR.DAODataControl1.DatabaseName = App.Path & "\DATA.mdb"
 
AR.DAODataControl1.RecordSource = " select * from [Table1]  WHERE [CARTE] LIKE  " & t


 AR.Show 1
  
List1.Clear
 
 End Sub