Si te refieres a una base de datos, puede ser lo siguiente
Asumiendo que tienes abierta la base de datos
sub txtbusca_change()
d$ = txtbusca.text
set mitabla = DB.OpenRecordset("select campo from tabla like campo=' & d$, dbopendynaset) 'Puede que haya error de sintaxis
completa cuadro de lista, DbGrid, MsFlexGrid u otro)
end sub