Erro desconhecido...

sql = "SELECT codRede,Nome FROM Rede WHERE Nome LIKE " & cmbRede.TextSet rs2 = bd.OpenRecordset(sql) ' Erro: "Too few parameters. Expected 1" rs!codRede = rs2!codRedeBom oqq eu to fazendo, na primeira linha eu to tentando selecionar o unico registro que bate o Nome (Nome da Tabela Rede) com o Nome apresentado na ComboBox (cmbRede.text).Na segunda, eu to executando a query num recordsetNa terceira, estou salvando o campo codRede(codRede da Tabela Programa: rs) com o valor do codRede(codRede da Tabela Rede: rs2).Mas quando eu tento acionar esse comando ele indica a linha 2 (set rs2.......) com o seguinte erro:

Too few parameters. Expected 1