Pessoa estou usando esse código pra deletar uma linha no access via excel.

Só que existe mais de um ID, queria que, quando eu deletar o código encontre outros IDs iguais

        id = Me.CodGeralCmd.Value
        ComandoSql = "select * from [tbCmdSemOpen] where [codCmdGeral] like '" & id & "' "
        Set rss = New ADODB.Recordset
            rss.Open ComandoSql, con, adOpenKeyset, adLockOptimistic
            rss.Delete
            rss.Update