É seria uma boa Ghost, o usuario digita, ai faz uma pesquisa e preenche o combo, é que envolve um monte de coisa no sistema, ai depois qdo o cara consultar, como q vai preencher o combo, com aquela cidade que foi cadastrada entendeu!!!
Mas me dá uma ideia de como seria essa consulta e depois ele preenche o combo!!

abraços, valeu

Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
    Set RS = ConexaoADO.Execute("SELECT cidades FROM tabela WHERE cidades like '" & Combo1.Text & "%' ORDER BY cidades")
   

    Combo1.Clear

    Do While Not RS.EOF
        Combo1.AddItem RS(0)
        RS.MoveNext
    Loop

    RS.Close

    Set RS = Nothing
End If
End Sub

algo assim...

 

t+

ele dá pau nessa linha

Set RS = ConexaoADO.Execute("SELECT cidades FROM tabela WHERE nome like '" & Combo1.Text & "%' ORDER BY nome"

 

Objeto requirido!!

 

:(

ConexaoAdo é a sua conexão q vc fez com ADO... acho q vc usou Cnn

 

é onde vc digita

 

.

.

.

 

entendeu?

Entendi, mudei e continua dando o mesmo erro

Set rs = cnn.Execute("SELECT cidade_descricao FROM cidade WHERE cidade_descricao like '" & Combo1.Text & "%' ORDER BY cidade_descricao")

 

valeu

Acho q a variável Rs vc já tem... se não estiver num código q tenha a linha Option Explicit então vc já tem RS declarada como variável do tipo ADODB.Recordset. Neste caso precisaria instanciá-la... o q quero é um objeto tipo variant então substitua RS por RSTemp sem precisar declarar (caso não tenha a linha Option Explicit q se tiver tem q declarar toda variável).

 

entendeu?? Só faz isso: