tin1296

can you please help me in vb6. The program is like this: In the program you want to search a name in the databse. In order to do that you must enter a value in the textbox and click the search command button. can you help me guyss!! geezz thank …

Private Sub Command1_Click() Dim Searchvar As String Searchvar = InputBox("Enter the Name to find") Searchvar = Trim$(Searchvar) 'remove surplus spaces If Searchvar <> " " Then 'cancel if nothing entered With Adodc1.Recordset .Find "[Title of Books] = '" & Text1.Text & "'", , adSearchForward If (.EOF) Then 'record not found …