this is more of a DAO and not very good but easiest code is using a query as @Jamo stated so tell us your ADO is it code based or you are using the ADO control
never forget to say THANK YOU

Private Sub cmdFind_Click()
'Note: Bookmark only works correctly
'with Client-side cursors
Dim dBookmark As Double
dBookmark = rsEmployees.Bookmark
Dim sFindCriterion As String
sFindCriterion = "LastName like '" & _
txtLastNameToFind & "*'"
rsEmployees.MoveFirst
rsEmployees.Find sFindCriterion, , adSearchForward
If rsEmployees.EOF Then
rsEmployees.Bookmark = dBookmark
MsgBox "Couldn't Find """ & txtLastNameToFind & """*"
Else
txtLastNameToFind = ""
End If
End Sub



On Mon, Oct 31, 2011 at 8:02 PM, jamo njoroge <patjayke@gmail.com> wrote:
a search boils down to the query you issue, paste to code from the button and maybe i can help

On Mon, Oct 31, 2011 at 4:55 PM, dennis munyotu <dmunyotu@gmail.com> wrote:
Hi skunkers i am looking for a search command button  in vb 6 using ADO but all in vain...

_______________________________________________
Skunkworks mailing list
Skunkworks@lists.my.co.ke
http://lists.my.co.ke/cgi-bin/mailman/listinfo/skunkworks
------------
Skunkworks Rules
http://my.co.ke/phpbb/viewtopic.php?f=24&t=94
------------
Other services @ http://my.co.ke


_______________________________________________
Skunkworks mailing list
Skunkworks@lists.my.co.ke
http://lists.my.co.ke/cgi-bin/mailman/listinfo/skunkworks
------------
Skunkworks Rules
http://my.co.ke/phpbb/viewtopic.php?f=24&t=94
------------
Other services @ http://my.co.ke



--
MICHAEL A. AKUNGA
(+254) 0726 174 815
michaelakunga@gmail.com
michaelakunga@yahoo.com