Visual Basic.NET - Codigo para boton buscar en VB.NET

Estiamdos colergas, estoy haciendo un programa con visual basic .net y como base de datos sql server 2000 me conecto con ado.net en la interfaz de usuario tengo botones para crear nuevo registro, borrar, editar pero no se el codigo para el boton buscar, me dicen que esto lo podria hacer con un select a la base de datos alguien me podria sugerir codigo para el boton buscar , gracias pro su valiosa ayuda

Dim objpaciente As New clspaciente
Dim objdatosset As New DataSet
Try
objdatosset = objpaciente.consulta
Me.dtconsulta.DataSource = objdatosset.Tables(0)
Me.dtconsulta.Refresh()
Catch ex As Exception
MessageBox.Show("Error en la consulta")
End Try
End Sub


********************
Dim objhonorarios As New clshonorarios
Try
With objhonorarios
.CODIGO_honorarios = InputBox("Digite el codigo Honorario")
.eliminar()
MessageBox.Show("Registro Eliminado con Exito")
End With

Catch ex As Exception
MessageBox.Show("Error al Eliminar")
End Try
End Sub