You can try this code..(we assume that departments is the table from which we are seaching)
Private Sub cmdsearch_Click()
Dim Mloop As Integer
Dim found As String
'Input Number to search
Mloop = 0
found = InputBox("Enter Number", "Search")
If found = "" Then
DataEnvironment.rsdepartments.MoveFirst 'Move the pointer to the first record
Do While Mloop = 0
If txtNo = found Then 'if search found display an alert message
If DataEnvironment.rsdepartments.EOF Then 'if search not found display an error message
MsgBox "Enter VALID No", vbCritical, "Find"
I Developed application in C# with crystal reports and created setup file in third party (Advance) Installer.When i installed my application on client system application is working but ...