Estou com problemas com o select, tento faze-lo dentro de um evento em um combo listado com valores de um bd em mysql o problema é quie quando peço para ele selecionar de acordo com o text do combo ele só pega o primeiro registro :

Private Sub cboCarro_Click()

Set tb1 = New ADODB.Recordset
Set tb2 = New ADODB.Recordset
tb1.Open "tbcarro;", Con
Con.Execute ("select * from tbcarro where tipocarro='" & cboCarro.Text & "'")

MsgBox tb1!capcarro

End Sub

Private Sub cboCarro_Click()

     Set tb1 = New ADODB.Recordset
     Set tb1 = Con.Execute ("select * from tbcarro where tipocarro='" & cboCarro.Text & "'")

     MsgBox tb1!capcarro

End Sub