Mostrar datos en combobox mientras se escribe

[lokoman]

• El combo debe tener el estilo=0

Código vb:

cbo.Style=0
 

• En el evento change del combo:

Código vb:

Private Sub cbo_Change()
   Dim rs as ADODB.Recordset
   set rs=new ADODB.Recorset
   rs.open "select * from tabla where campo like '" & cbo.text  & "%'", conexion
   if rs.eof=false then
      'asignas el resultado del query a los controles que deses (datagrid, textboxes, labels, etc)
   else
      'limpias los controles (datagrid, textboxes, labels, etc)
   end if
End Sub