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