I used to use a bit of code like this to search a database in vb6 .
I must admit that i did copy and modify the code from a book.
Private Sub comSearch_Click()
Dim search As String
Dim sBookmark As String
search = InputBox(" Enter the model you wish to see...