Lo que podrias hacer y es muy simple es utilizar un text, un datagrid y un adodc... En el evento change del text que se vaya actualizando la lista del datagrid... Ej:
Código:
Private Sub Text1_Change()
Dim CRITERIO As String
CRITERIO = "SELECT campo1, campo2, campo3 " & _
" FROM Tabla " & _
" WHERE (campo1 LIKE '" & Text1 & "%') ORDER BY campo1"
Adodc1.RecordSource = CRITERIO
Adodc1.Refresh
End Sub
Debes colocar en la propiedad DataSource del Datagrid Adodc1
De esta forma es muy simple