[samehsayed2005]

Private Sub Command1_Click()
Data1.RecordSource = "select * from AddModa where NumCump like '7' "

Data1.Refresh
End Sub

Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\CyperNet.mdb"
Data1.RecordSource = "AddModa"
Data1.Refresh
End Sub