Visual Basic - Busqueda

Hola deseo saber como hago para crear un campo de busqueda en un formulario

La conexion q utilizo es la sig:

Dim cn as ADODB.Conexion
Dim rs as ADODB. Recordset

Dim cn as ADODB.Conexion
Dim rs as ADODB. Recordset

set cn= New ADODB.Conexion
cn.connectionstring=cadena_de_conexion
cn.open

set rs= New rs as ADODB. Recordset
rs.cursorlocation=aduseclient
rs.open "select *from tabla where campo= '" & text1.text & "' "

text2=rs.field("campo")
.
.
.
.