Estou tentando colocar em um editbox o valor de uma combobox, que faz uma consulta a uma tabela trazendo a descricao, e para isso estou usando o comando abaixo Dim plano As Integer plano = "SELECT [PLANOS].[iD_PLANO]" & _ "FROM PLANOS" & _ "WHERE [PLANOS].[DESCRICAO] = " & Form_CONTRATOS1.listaPlano.Value & "" ID_PLANO.Value = plano Só que está dando erro de tipos incompatíveis. Alguém sabe como resolver o problema? Obrigado